Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

doom's scratchpad

by doom (Deacon)
on Jun 03, 2004 at 17:50 UTC ( #360325=scratchpad: print w/replies, xml ) Need Help??

Hey bjensen34... maybe this is closer (I'm trying not to think very hard about why you want to do this):
# USAGE $0 {failover|normal|status} $1 {serial} # Syntax: DRDNSfail.pl {failover|normal|status} {serial} # Return: SUCCESS | ERROR # $version = "1.0"; #------------ # definition #------------ $VARIABLE = $ARGV[0]; $Serial = $ARGV[1]; $HOME_DIR = "/var/named/DRBAK"; $ROOT_DIR = "/var/named/zone"; #---------------------------------------------------- `perl -pi -e 's/2007\d\d\d\d\d\d/$ARGV[0]/' $ROOT_DIR/* $Serial`;
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Corion]: "Unmatched ) in regex; marked by <-- HERE in m/(&#9583;&# 9633;)&#9583;&# 65077; &#9531;&#9473;&# 9531;) <-- HERE / at -e line 1." :)
[Corion]: Meh - my "flip the table" string doesn't render here ;)
[choroba]: It renders correctly in pm-cb-g
[erix]: heh
[Veltro]: is it a question?
[erix]: or a conundrum?
[Veltro]: and if I may give you a hint, use qr/\xC2\xB0|\xB0/ instead of the degree sign

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2018-07-17 16:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (372 votes). Check out past polls.

    Notices?