Help for this page

Select Code to Download

Select or download this

$ echo '{out=$1;for (k=2;k<=NF;k++){out=sprintf("%s,%s",out,$k);}print
+ out}' | a2p | perltidy
#!/pro/bin/perl
...
    print $out;
    }
$