diff options
author | Arnaud Desmons <adesmons@mandriva.com> | 2002-09-05 07:37:06 +0000 |
---|---|---|
committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-09-05 07:37:06 +0000 |
commit | f7cca6ea32444a7764d54989bf360530d07d6092 (patch) | |
tree | 779049ed3b297fa40354f497a5e0d6ca86505096 /postfix_wizard/scripts/testlabel.pl | |
parent | 52d4a220029dac288c8b86c3271ce9ab5fbdc6c2 (diff) | |
download | drakwizard-f7cca6ea32444a7764d54989bf360530d07d6092.tar drakwizard-f7cca6ea32444a7764d54989bf360530d07d6092.tar.gz drakwizard-f7cca6ea32444a7764d54989bf360530d07d6092.tar.bz2 drakwizard-f7cca6ea32444a7764d54989bf360530d07d6092.tar.xz drakwizard-f7cca6ea32444a7764d54989bf360530d07d6092.zip |
untouched
Diffstat (limited to 'postfix_wizard/scripts/testlabel.pl')
-rw-r--r-- | postfix_wizard/scripts/testlabel.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/postfix_wizard/scripts/testlabel.pl b/postfix_wizard/scripts/testlabel.pl new file mode 100644 index 00000000..c61d3cb0 --- /dev/null +++ b/postfix_wizard/scripts/testlabel.pl @@ -0,0 +1,15 @@ +$toto = "tutu"; +$tata = "titi"; + +$file = "/home/logarno/toto"; +open(CANONICAL, "< $file"); +while (<CANONICAL>) { + if (/\@$toto\s*\@$tata/){ + goto NOUPDATE; + } +} +close(CANONICAL); +open(CANONICAL, ">> $file"); +print CANONICAL "\n\@$toto \@$tata"; + NOUPDATE: + close(CANONICAL); |