TAG: perl

Perl for Windows Some small and handy scripts I've written for Windows. Compress every single *.cad file with 7zip: #!/usr/bin/perl -w # # 2008-03-12/TB # use strict; my @files = glob "*.cad"; die "no files found!\n" if (scalar @files == 0); foreach my $file (@files) { system( "c:\\programme\\7-zip\\7z.exe a -tzip -mx9 \"$file\".zip \"$file\"" ); } ,
Perl one liners Simple replace How to edit a bunch of files with one simple command: perl -pi.bak -e 's/bad/good/' ~/files.*.conf Replaces occurence of 'bad' with 'good' in all matching files and creates a .bak copy of the modified files. Replace serial number in zone files: ,
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0 ipv6 ready