convenientstore has asked for the wisdom of the Perl Monks concerning the following question:
What is up w/ below code?
Why can't this simple script just spit out what it sees in data?
Why can't this simple script just spit out what it sees in data?
running this I get#!/usr/bin/perl -w use strict; #my @yahoo = map { split(/\n/, $_) } <DATA>; my @yahoo = <DATA>; while (@yahoo) { chomp; print $_; } __END__ hi nus mine hi no mine ### hi on mine ## hi nus mine hi hi hi hi hi hi
Putting dumper gets me,Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized value in print at ./split_file.pl line 12, <DATA> + line 9. Use of uninitialized value in scalar chomp at ./split_file.pl line 11, + <DATA> line 9. Use of uninitialized
use strict; use Data::Dumper; #my @yahoo = map { split(/\n/, $_) } <DATA>; my @yahoo = <DATA>; #print "@yahoo\n"; print Dumper(@yahoo);
./split_file.pl $VAR1 = 'hi nus mine '; $VAR2 = 'hi no mine '; $VAR3 = '### '; $VAR4 = 'hi on mine '; $VAR5 = '## hi nus mine '; $VAR6 = 'hi hi hi '; $VAR7 = 'hi '; $VAR8 = 'hi '; $VAR9 = 'hi ';
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: why can't I just cat the file???
by eric256 (Parson) on Feb 07, 2008 at 04:10 UTC | |
by halley (Prior) on Feb 07, 2008 at 15:05 UTC | |
by hpavc (Acolyte) on Feb 07, 2008 at 17:31 UTC | |
by convenientstore (Pilgrim) on Feb 08, 2008 at 17:00 UTC | |
by halley (Prior) on Feb 08, 2008 at 18:04 UTC | |
Re: why can't I just cat the file???
by jepri (Parson) on Feb 07, 2008 at 04:12 UTC | |
by cdarke (Prior) on Feb 07, 2008 at 08:30 UTC | |
by convenientstore (Pilgrim) on Feb 07, 2008 at 04:42 UTC | |
Re: why can't I just cat the file???
by johngg (Canon) on Feb 07, 2008 at 10:47 UTC |
Back to
Seekers of Perl Wisdom