< Perl
Content added Content deleted
imported>Kunda mNo edit summary |
imported>Kunda mNo edit summary |
||
Line 1:
===Quote for s23 wiki===
<pre>
#!/usr/bin/perl
#
# 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";
@raw=(TEMP);
close(TEMP);
foreach $line (@raw)
{
$wholeline = "$prefix" . "$line";
}
</pre>
===Rename the contents of directory===
* How to rename everything that ends with ".old " to the same name with ".new". Here's how to do it in Perl nicely:
|
Latest revision as of 14:44, 5 November 2005
Quote for s23 wiki[edit]
#!/usr/bin/perl # # 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"; @raw=(TEMP); close(TEMP); 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)