< Perl
Content added Content deleted
imported>Kunda mNo edit summary |
imported>Kunda mNo edit summary |
||
Line 1: | 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=== |
===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: |
* 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)