Select Code to Download

perldoc -f link

       link OLDFILE,NEWFILE
               Creates a new filename linked to the old filename.
               Returns true for success, false otherwise.

# rm -rf directory
Could not remove directory: File exists.

#!/usr/local/bin/perl -w
$_="DO30QO00o*40DO30QO00o*40D*20QO20oDOO00DO*00DO40oD10QO10QO*10QO*00D
+*20Q
...
D00";s{\s|T.*/O}()g;s(X){\n}g;while (s/(?=[QDOo*])(Q*)(o*)(D*)(O*)(\**
+)(\d
)0/chr(l($1)*100+l($2)*50+l($3)*25+l($4)*10+l($5)*5+$6)."XxX"/ex){};s{
+XxX}
                 {}g;eval;sub l{return length shift}