Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: I prefer

by belg4mit (Prior)
on May 17, 2002 at 22:46 UTC ( #167424=note: print w/replies, xml ) Need Help??


in reply to I prefer

Cotton, so versatile... denim, jersee.

PS> For all you hand-cuff people, wouldn't that be stainless-steel?

--
perl -pew "s/\b;([mnst])/'$1/g"

Replies are listed 'Best First'.
Re: Re: I prefer
by mdillon (Priest) on May 18, 2002 at 03:07 UTC
    Hemp is similarly versatile; it can be made into denim, jersey, and even "silk" (quite nice actually), among many other variants. Plus, it doesn't need pesticides and herbicides as cotton does typically (though cotton can be grown organically, currently at substantially higher cost).
      I have a hemp wallet I bought last year, and it is in tatters. I have a denim wallet that went years and years before it stared to become threadbare. Granted the hemp wallet is a slightly rougher thread and weave, but I am still disappointed :-/

      Oh, and linen is nice too. Plus you get all that healthy flax oil.

      --
      perl -pew "s/\b;([mnst])/'$1/g"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://167424]
help
Chatterbox?
[tobyink]: You can use grep { $_ =~ /.*$in.*/; } @my_modules but why not stick to grep(/.*$in.*/, @my_modules)? (The latter is faster.)
[shmem]: Lady_Aleena, in the first example grep evaluates the result from grep and if true, returns $_. In the second, it always returns $_
[shmem]: ..the result from the pattern match
[Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
[shmem]: so in the second example grep returns all true elements of the list passed
[Lady_Aleena]: Okay, so grep BLOCK is not like map BLOCK where something might need to be returned at the end.
[tobyink]: grep { $_ =~ /.*$in.*/; } @my_modules should work just fine. The problem is that you were adding on ;$_ at the end of the block. Why were you doing that?
[Lady_Aleena]: tobyink, I was thinking map.
[tobyink]: Something does need to be returned at the end not $_ though. You need to return (something that will be evaluated as) a boolean.
[Lady_Aleena]: Here is a longish map I did in the same script. my @my_modules = map { my $file = $_; $file =~ s/$module_director y(.+)\.pm/$1/; $file =~ s/\//::/g; $file; } @files;

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2017-05-27 07:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?