Help for this page

Select Code to Download


  1. or download this
    for i in `find . *.txt`; do perl -pi -e 's/\n/,/' $i; done;
    
  2. or download this
    #!/usr/bin/perl
    
    ...
        return;
    }
    <p><b>update 2</b> After reading the other replies I realized I misrea
    +d the question, and there was no need for recursion, so the solution 
    +came to be more complex than it needed to be. I was really in the nee
    +d to get some sleep.</p>