Your printing to a filehandle OUT. What do you need the greater than symbol
before the $string for? If you are trying to print a literal greater than
string you will need to escape it "\> $string\n" otherwise just print
"$string\n".
Hope this helps.
Trevor Joerges
SendMIME Software
www.sendmime.com
----- Original Message -----
From: "Mehta, Perdeep" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, September 30, 2002 4:30 PM
Subject: [Perl-unix-users] Perl help
| Hi All,
|
| I would appreciate any help on the following code.
|
| Here I fill the defln hash with the appropriate keys and values:
|
| use strict;
| use warnings;
|
| my %defln = ();
|
| while (my $line = <FILE>) {
| chop($line);
| if ($line =~ /^$/) {
| next;
| }
| else {
| my @words = split(/\t+/, $line);
| push(@{ $defln{$words[0]} }, $line);
| }
| }
|
|
| Then I wish to retrieve the value associated with a key and work on it,
|
| my($defln) = @{ $defln{$words[0]} };
| my($string) = ($defln =~ /\s*\|([^|]+)\|/g); # string between two
| pipes
| print OUT "> $string\n";
|
| Though the result is printed out but it throws following error that I
could
| not resolve,
|
| Use of uninitialized value in concatenation (.) or string at test.pl line
| 103, <FILE> line 1895.
| The line 103 points to the print statement.
|
| Thanks in advance,
| perdeep
| _______________________________________________
| Perl-Unix-Users mailing list
| [EMAIL PROTECTED]
| To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
|
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
