Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Unable to split $ARGV[0] variable. Can it be done?

by Utilitarian (Vicar)
on Dec 10, 2012 at 15:16 UTC ( #1008117=note: print w/replies, xml ) Need Help??

in reply to [SOLVED]Unable to split $ARGV[0] variable. Can it be done?

perl my $url = $ARGV[0]; my ($host)=$url=~/https?:\/\/([^\/]+)/;
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1008117]
[LanX]: na, they go easy on germans since they discovered the German TV market
[Your Mother]: Zeitgeist. :P
[LanX]: Talking about Peacemakers, I still need to watch 2 seasons of Farscape ...
[Your Mother]: I liked that show a lot.
[Your Mother]: Packed with minority women.
[LanX]: pitty they burned the actors in Stargate
LanX ... uhm ... wait...
[Eily]: LanX I don't see the woman
[LanX]: at the right, tanned , gib boobs, chains
[LanX]: big

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (12)
As of 2018-03-19 14:41 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (240 votes). Check out past polls.