Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: Excluding words with more than three a

by Anonymous Monk
on Dec 20, 2001 at 19:59 UTC ( #133500=note: print w/replies, xml ) Need Help??


in reply to Re: Excluding words with more than three a
in thread Excluding words with more than three a

Thank you, wog, I was looking for code similar as your approach, but I failed to find any suitable solution. I've tweaked and wrapped the code a bit, just to run it under MacPerl.
#!perl -w use strict; my $tmpdir = 'Disco:Carpeta_Idioma:'; my $file = "$tmpdir" . 'diccionario'; my $file_out = "$tmpdir" . 'diccionario2'; open(IN, "<$file") || die "Can't open $file: $!\n"; open(OUT, ">$file_out") || die "Can't open $file_out: $!\n"; while (<IN>) { print OUT unless ( y/a//>3 | y/b//>1 | y/c//>1 | y/d//>2 | y/e//>8 | y/g//>1 | y/i//>3 | y/j//>1 | y/l//>2 | y/m//>3 | y/n//>3 | y/o//>4 | y/r//>3 | y/s//>6 | y/t//>1 | y/u//>2 | y/v//>2 ) } close IN; close OUT;
The code snippet looked nice indented on my Mac. Hope it looks fine here too. Best regards, Richard

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://133500]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2022-11-29 04:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?