Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^3: auto increment

by kroach (Pilgrim)
on May 05, 2015 at 13:56 UTC ( #1125736=note: print w/replies, xml ) Need Help??

in reply to Re^2: auto increment
in thread auto increment

Better yet:

use feature 'say'; my $output = "data.txt"; open(DAT, '+<', $output) || die("Cannot Open File"); my $line; $line = <DAT> until eof DAT; my ($id) = $line =~ m/\A(\d+):/; say DAT join ':', ++$id, $name, $number, $address, $phone, $email; close(DAT);

This way, the regular expression is only executed once - on the last line.

Sorry for the double post, I can't edit my comments (not enough powers yet).

Replies are listed 'Best First'.
Re^4: auto increment
by PilotinControl (Pilgrim) on May 05, 2015 at 14:06 UTC

    Thanks for the quick response and multiple answers...each worked and now I know that I have to read the line before instead of just adding. This makes things easier as before I was using a pattern match in order to edit my entries in the database and now all I have to do is enter a line ID number and I am good to go. Thanks again!

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2020-10-20 09:00 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (209 votes). Check out past polls.