Why I Like Perl

First Previous ToC Next Last

Design Goal -- Easy for Small Tasks

• one-liners exemplify a design goal
• previous could be written as official program

    	use File::Copy;

    	my $file = shift;
    	copy( $file, $file . ".bak" );

    	open my $fh, '>', $file or die "Cannot open '$file' $!\n";

    	while (<$fh>)
    	{
    		s/PERL/Perl/g;
    		print;
    	}

    	close $fh;

---

Slide 36 of 47