Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Is there a way around grep?

by BrowserUk (Pope)
on Oct 11, 2011 at 03:01 UTC ( #930732=note: print w/ replies, xml ) Need Help??

in reply to Is there a way around grep?

Why iterate when you can lookup?:

use File::Basename; #list of filenames to normalize my %index_file_names = map{ $_ => 1 } qw( index.html index.htm index.php index.asp index.cgi ); sub normalize_url { my $old_url = $_[0]; chomp($old_url); #saves name at the end my $filename=basename($old_url); if( exists $index_file_names{ $filename } ) { #saves the directory part my $normalized_url=dirname($old_url); $normalized_url; }else{ #don't need to normalize url $old_url; } }

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: Is there a way around grep?
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (14)
As of 2015-10-13 17:42 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (311 votes), past polls