Create a new article
Write your page title here:
We currently have 3185 articles on s23. Type your article name above or click on one of the titles below and start writing!


Perl/Useful hacks

Quote for s23 wiki[edit]

# Will put pre-existing text in wiki markup for presentation
# example:
#     <center>
#     <whitespace>'''Lyrics
#     <whitespace>'''Lyrics
#     </ center>

$prefix =" '''";    # to prefix each sentence in file

$file = "$ARGV[0]";
open(TEMP, $file) || die "Needs file name\n";

foreach $line (@raw)
    $wholeline = "$prefix" . "$line";

Rename the contents of directory[edit]

  • How to rename everything that ends with ".old " to the same name with ".new". Here's how to do it in Perl nicely:
foreach my $file (glob "*.old") {
  my $newfile = $file;
  $newfile =~ s/\.old$/.new/;
  if (-e $newfile) {
    warn "can't rename $file to $newfile: $newfile exists\n";
  } elsif (rename $file, $newfile) {
    ## success, do nothing
  } else {
    warn "rename $file to $newfile failed: $!\n";

Thought there is much faster way to do this in bash i bet (link from here if you know of one)