while (<>) {
[download]

   print "> ", $_;
[download]

perl -i.bak -n -e "print '> ', $_"  file1.txt file2.txt etc.etc
[download]

—John

Thanks for the help.

perl -i.bak -pe '$\ = "> ";' <filename>
[download]

I also like perlvars, but only if they work. $\ is the output record separator, which means it is printed after each line (and thus before the next). But this leaves the first line without '> ' and introduces an extra '> ' after the last.

And while I'm here let's throw in yet another wtdi perl -i.bak -pe 'substr($_,0,0) = "> "' file

-- Hofmator

perl -i.bak -pe 's/$_/> $_/' filename
[download]

That will work as long as your lines don't contain regex metacharacters. :)

You don't really need to match the line itself; just matching the beginning of the line works fine: perl -pi.bak -e 's/^/> /' filename

$data =~ s/^/> /mg;
[download]

-Blake

Well, you could use a regular expression if you had something against $data = "> $data"; =)

But the regex do gots the cool factor.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]

Um, those aren't the same.....

my $data = <<"EOF";
I really like
jellybeans
of all colors
and flavors
pink lemonaide
blue raspberry
and orange marmalade
are great
EOF

print "First try:\n";
print "> $data\n";

print "Second try:\n";
$data =~ s/^/> /mg;
print "$data\n";
[download]

Output


First try:
> I really like
jellybeans
of all colors
and flavors
pink lemonaide
blue raspberry
and orange marmalade
are great

Second try:
> I really like
> jellybeans
> of all colors
> and flavors
> pink lemonaide
> blue raspberry
> and orange marmalade
> are great
[download]

-Blake