Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Halloween Fun

by vroom (Pope)
on Dec 07, 1999 at 23:31 UTC ( #1045=CUFP: print w/replies, xml ) Need Help??

For Halloween my on campus apartment had a pumpkin carving contest. Each aparment got a pumpkin about a week prior to the competition. We promptly smashed ours... inside of our apartment. Then when the day of the contest came we took a campus provided lamp, took off the shade, covered it with an orange street cone, and pasted black eyes and a mouth onto it. We then used the X10 lamp module and a Perl script to randomly dim and brighten the light and create a nice candle effect, all on a campus where candles are banned.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://1045]
This node hasn't been approved yet
help
Chatterbox?
[ovedpo15]: it isn't homework. its a module I use at work. The process to add additional module isn't worth it. p.s never heard a university course which teach perl
[marto]: there are many, to this day.
[ovedpo15]: @Corion Yes I use the regex you showed me. its very good regex. although now i need to know that substring unit that comma
marto mad corrections to one around 18 months ago
[ovedpo15]: my code checks the value after that comma, if it isn't valid it will remove it. so I would like to remove the substring after that comma meaning getting the string before comma.
[hippo]: Are you sure that Text::CSV_XS isn't already installed at your work? It's such a useful module that it might well be there.
[marto]: pointing out the advantages of cpan modules is well worth in, as both developer and $client/$company benefit greatly
[Tux]: $src =~ m{^(.*),(.*)$/ and $2 !~ $valid and $src = $1;
[Tux]: s,/,},

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2018-05-27 10:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?