Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: OK... I am confused and lost :( Editing FlatFile

by runrig (Abbot)
on Aug 27, 2001 at 22:41 UTC ( #108218=note: print w/ replies, xml ) Need Help??


in reply to OK... I am confused and lost :( Editing FlatFile

use strict and warnings (-w). Consider using an array or a hash instead of all those variable names. E.g.:

my @fields = qw(position institution dept etc); for my $rec (@records) { chomp $rec; my %old; @old(@fields} = split /\t/, $rec; if ($old{position} != $viewposition) { print join("\t", @old{@fields}),"\n"; } else { ... } }


Comment on Re: OK... I am confused and lost :( Editing FlatFile
Download Code
Re: Re: OK... I am confused and lost :( Editing FlatFile
by LostS (Friar) on Aug 27, 2001 at 22:50 UTC
    Thanks for the kick in the head... found the issue... :)


    -----------------------
    Billy S.
    Slinar Hardtail - Guildless
    Datal Ephialtes - Guildless
    RallosZek.Net Admin/WebMaster
    Aerynth.Net Admin/WebMaster

    perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat! +\n"; } else { print "Thats a dog\n"; } print "\n";'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://108218]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-08-02 07:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (55 votes), past polls