Discipulus has asked for the wisdom of the Perl Monks concerning the following question:
Hello monks!
maybe this question is dangerous/stupid but I'm in a blind-way..
I wont to modify the source of the script I'm executing refreshing the value of a variable so that next time I run that code smartly.I don't wont to use another file.
If I try with this code above the new resulting code is double (the second with a funny shabang). Seek seems not work (if I try, after seek to print "hello", it print it at the end of the file).Maybe my regex is terrible(I had split for now the substitution)..
Some ideas?
greetings lorenzo*
maybe this question is dangerous/stupid but I'm in a blind-way..
I wont to modify the source of the script I'm executing refreshing the value of a variable so that next time I run that code smartly.I don't wont to use another file.
open (PROG, ">>$0"); seek (PROG, 0, 0); #not working while (<PROG>) { if ($_=~/$\$data=/){s/\$_/\$data=$new_value;/} } close (PROG);
If I try with this code above the new resulting code is double (the second with a funny shabang). Seek seems not work (if I try, after seek to print "hello", it print it at the end of the file).Maybe my regex is terrible(I had split for now the substitution)..
Some ideas?
greetings lorenzo*
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: substitution in $0
by Abigail-II (Bishop) on Oct 02, 2002 at 13:34 UTC | |
•Re: substitution in $0
by merlyn (Sage) on Oct 02, 2002 at 15:54 UTC | |
Re: substitution in $0
by RollyGuy (Chaplain) on Oct 02, 2002 at 13:18 UTC | |
by Helter (Chaplain) on Oct 02, 2002 at 13:40 UTC | |
by Discipulus (Canon) on Oct 03, 2002 at 12:00 UTC | |
by fglock (Vicar) on Oct 03, 2002 at 12:23 UTC | |
Re: substitution in $0
by BrowserUk (Patriarch) on Oct 02, 2002 at 16:12 UTC | |
Re: substitution in $0
by fglock (Vicar) on Oct 02, 2002 at 13:13 UTC | |
seeking in file
by rir (Vicar) on Oct 02, 2002 at 13:29 UTC |
Back to
Seekers of Perl Wisdom