sslug-teknik team mailing list archive
-
sslug-teknik team
-
Mailing list archive
-
Message #70996
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
-
Perl
From: Asbjoern Grandt, 2004-02-13