in reply to Re: Script crazy after a lot of testing and terminating
in thread Script crazy after a lot of testing and terminating
This is my code, if you means my script:
while (1) { my @entries = (); my $ref_entry = {}; $/ = ""; open( F, " $cat test |" ) or warn("Can't executed $cat\n"), next; while (<F>) { $\ = ""; next if $_ =~ /^\d+:/; print("$_\n"); foreach ( split /\n/ ) { $$ref_entry{$1} = default($2) if /^(\w +?)\s+:.(\d+)/; $$ref_entry{$1} = default($2) if /^(\w +?)\s+:.'(.*)'/; $$ref_entry{$1} = default($2) if /^(\w +?)\s+:.>(.*)</; print "$1 ==> $2\n"; } push @entries, $ref_entry; } close(F); calreport(@entries); splice(@entries); }
update (broquaint): removed <pre> tags and added <code>, also perltidyed code to avoid unnecessary code wrapping
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Script crazy after a lot of testing and terminating
by antirice (Priest) on Jul 22, 2003 at 23:34 UTC | |
by bh_perl (Monk) on Jul 27, 2003 at 04:07 UTC |
In Section
Seekers of Perl Wisdom