Monday, October 19, 2009

This is text.
#!/usr/bin/perl

use strict;
use warnings;

my $foo = shift;

while (<>) {
s/"foo"/$foo/;
print;
}
Hello.

No comments:

Post a Comment