Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: data inside file

by AcidHawk (Vicar)
on May 11, 2004 at 20:16 UTC ( [id://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);

    [download]
    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.

    In Section Seekers of Perl Wisdom

    Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Domain Nodelet?

    www.com | www.net | www.org
    Node Status?
    node history
    Node Type: note [id://352576]
    help
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? • Last hour • Other CB clients
    Other Users?
    Others learning in the Monastery: (8)
    As of 2024-04-23 22:01 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found