Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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 { ... } }

Replies are listed 'Best First'.
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?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (12)
As of 2016-10-25 22:00 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (330 votes). Check out past polls.