open(F, "+< $infile") or die "Can't read $infile: $!\n";
$out= '';
while (<F>) {
    #find the line you want and manipulate here
    $out .= $_;
}
seek(F, 0, 0) or die "Can't seek to start of $infile: $!\n";
print F $out or die "Can't print to $infile: $!\n";
truncate(F, tell(F)) or die "Can't truncate $infile: $!\n";
close(F) or die "Can't close $infile $!\n";
[download]

---
I'm too sexy for my .sig.

I would like to modify a line in the /etc/passwd (gcos) file after I've found it...WITHOUT the use of modules (so it can be used on a fresh perl install

Now we wouldn't be trying to make a hacking tool now would we?

FYI - A Fresh PERL install comes with a lot of handy modules included.

Here's a hint, start with:

open(FH, "< $filename") or die ("Can't read file: $!\n");
@the_file = <FH>;
[download]

Then you could play with the contents of @the_file & write the whole thing back out again. (Assuming you close and open(FH, "> $filename") again.

Now AFAIK the IO module installs with a basic PERL installation. So a better way to do this might be:

use IO::File;

$fh = IO::File->new($filename, "r+")
     or die "Couldn't open $filename for read & write: $!\n";
[download]

I hope I have been of some useful guidance...

--
Me spell chucker work grate. Knead grandma chicken.

perl -p -i -e ' s/whatever/whateverelse/ if /whateveryou'relookingfor/
+ ' /etc/passwd
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]