Thanks to the observations of
Zaxo and
you, I've gotten through some errors, misunderstandings and typos, but there is one error message I don't understand (even with
use diagnostics). The whole program follows with the error listed first. The line giving the error is the one with the
map command. It looks like the variables
$1, $2 are somehow not being set. Perhaps the oddest aspect is that the program seems to work anyway. The error message is repeated 3 times.
Error:
Use of uninitialized value at e.pl line 13, <DATA> chunk 5.
Code:
#!/usr/bin/perl -w
my $file;
my @info;
my $line;
my %data = (one => 1, two => 2, three => 3);
foreach $file (<BXML=Tr*>) {
open (DATA, $file);
@info = <DATA>; # @info contains the whole xml record
foreach $line (@info) {
chomp $line;
$line =~ s|E-mail|Email|g; # make email tags match all other
+ tags
%data = map { /<(\w+)>\s*(.*?)<\/\w+>/; ($1, $2) } @info;
}
print "\n",$data{"Position"},"\t",$data{"GradYear"},"\t",$data{"Em
+ail"},"\n";
}
close (DATA);
OutPut:
Stdnt 1987 SomeAddr@abc.com
So, can I safely ignore the error since the code does what I expect? Or is that asking for trouble?
-Theo-
(so many nodes and so little time ... )
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.