← Back to team overview

sslug-teknik team mailing list archive

Re: Perl

 

On Fri, 13 Feb 2004 10:04:49 +0100
Asbjoern Grandt <asbjorn@xxxxxxxxxx> wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Hej.
> 
> Jeg har et par scripts med en masse regexp kald til den samme fil, det
> 
> startede med en 4-5 stykker, men er nu oppe på en hel del mere.
> 
> Alle regexp kaldene ser således ud :
> perl -pi -e "s/^(.{1,65})(\.|\"|\>)\s*[\r\n]/\1\2\n\n/g" temp.txt
> perl -pi -e "s/(\*|\-)\r/\1\n/g" temp.txt
> 
> Gang det med et par dusin, og man har et langsomt script. Hvordan kan 
> jeg åbne filen temp.txt, udføre alle de nødvendige regexps, skrive 
> resultatet til den samme fil, og afslutte ?


noget ala følgende kunne gøre det; 

#!/usr/bin/perl
open (DATA, "temp.txt"); 
my $file = do { local $/, <DATA> };
close DATA;
$file =~ s/^(.{1,65})(\.|\"|\>)\s*[\r\n]/\1\2\n\n/g;
$file =~ s/(\*|\-)\r/\1\n/g
osv......

open (DATA, ">temp.txt");
print DATA $file;
close DATA;




-- 
           Fund of Fundanemt - Join the User Group 
   http://www.fundausers.org | join #fnug @ irc.freenode.net


Follow ups

References