print "Yeeehaaa: $_[0] \n"; would be more correct than $SNR_LOG, else what's the point of the subroutine?
> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 09, 2002 9:32 AM > To: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: RE: how to print out a variable if theres a . in it? > > > change the line > print "Yeeehaaa: $_ \n"; > to > print "Yeeehaaa: $SNR_LOG \n"; > > and it will work fine. > -----Original Message----- > From: Theuerkorn Johannes [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 09, 2002 8:10 AM > To: '[EMAIL PROTECTED]' > Subject: how to print out a variable if theres a . in it? > > > Hello List, > > I have a (probably) simple problem: > > IŽam parsing trough a directory an want to print out every > filename that exists. (later I want to open those files) > Problem is, i have filenames like > snr_log.csv,repact.csv,,foo.csv,bar.csv all with a period in > between... > What I get is an error as follows up... > > Any Suggestions? > > ERROR: > ########################################################## > perl -w verzeichnis.pl > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > Use of uninitialized value in concatenation (.) at > verzeichnis.pl line 15. > Yeeehaaa: > ########################################################## > > > this is verzeichnis.pl > ######################################### > > #/usr/bin/perl -w > > use strict; > > my $qis_root = "/home/user1/DiREx/test"; > my $SNR_LOG; > chdir($qis_root)|| die "canŽt change to $qis_root!"; > > while (defined($SNR_LOG = <*>)){ > #print "$dateien\n"; > parse_logs($SNR_LOG); > } > sub parse_logs{ > > print "Yeeehaaa: $_ \n"; > > } > ########################################## > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
