Help for this page

Select Code to Download


  1. or download this
    $description =~ s/^(\s+)?$//g;   #get rid of blank lines
    $description =~ s/\n/ /g;        #get rid of new lines
    ...
        $f_desc .= "T" . $temp . "\n";         #put a newline at the end
    }   
    #when the loop is done, $f_desc should hold the parsed description