Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: data inside file

by AcidHawk (Vicar)
on May 11, 2004 at 20:16 UTC ( #352576=note: print w/ replies, xml ) Need Help??


in reply to data inside file

I am not sure what you are trying, but a few comments.

  • You declare my $empNUM; but later refer to $empNum - Possible Type ??
  • since you are using my try to be consistant.. so you line foreach $line (@line) would look like foreach my $line (@line)
  • instead of exiting I.e. exit 0; you might have employees to process after you found a match so instead do a next
  • So you might end up with something like

    my $empNUM; open(DATA, "data") or die ; open(UPDAT, ">updated") or die; while(<DATA>) { my @line = split(/\s+/, $_); #Assuming your file is split on multi +ple spaces..? if ($line[2] eq $empNUM){ next; } else { print UPDAT "$_"; } } close(DATA); close(UPDAT);
    Update: Removed the foreach as it is not necessary..
    -----
    Of all the things I've lost in my life, its my mind I miss the most.


    Comment on Re: data inside file
    Select or Download Code

    Log In?
    Username:
    Password:

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

    How do I use this? | Other CB clients
    Other Users?
    Others contemplating the Monastery: (7)
    As of 2014-09-03 08:27 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite cookbook is:










      Results (35 votes), past polls