• Using perl -l gives you autochomp which Tie::File has built in. From your other nodes I see you use this frequently to add a newline when you print.
• $^W = 1; and then use Warnings; a few lines later?
• Using autodie means the script stops after the unlink line even if there is a file to delete. Why not just die if -e $file; ?
• Does $| = 1; have any effect on Tie::File? With the option memory => 0 it is already not cacheing anything.

I don't understand the point of this code. Tying to a file that doesn't exist, adding a line, then deleting the newly created file doesn't seem useful.

Thanks for posting but I don't understand the point of this code

It is pointless, he's a troll.

• Re^2: what is the purpose of Tie::File (Khen1950fx ignores question again, then posts baffling code, so I make fun of him)
• Khen1950fx cpan meme, Khen1950fx cpan meme, Khen1950fx cpan meme
• Re: Substring giving strange results on $1 with utf8,(Is this a perl-bug? Khen1950fx will fix it)
• Re: Use 'strftime' to calculate a date/time in the Past.( the only thme Khen1950fx updated his junk to be relevant)
• Re: XML::Twig - how can I test for an attribute when the attribute value is 0? (Khen1950fx copy/pastes some irrelevant code, pretends its an answer, again)
• Re: Can Cache::Memcached::Fast distinguish timeout or not existing? ( yes or no question; Khen1950fx answers with question: something like this? )
• Re: suggested module/tools to automatically "tighten" my perl (Khen1950fx uses a module, then proceeds to copy/paste that modules code)

What doesn't make sense to me is how a node that has so many obvious code problems can muster up a positive node reputation.




Dave

Having a glitch of some kind---code is coming:). Here:

How delightfully refreshing, here's mine

P.S.

$ perl delight.pl
Bareword found where operator expected at delight.pl line 21, near "#l
+ine 3 is now "something"
  (Might be a runaway multi-line "" string starting on line 19)
        (Missing operator before something?)
String found where operator expected at delight.pl line 21, at end of 
+line
        (Missing semicolon on previous line?)
syntax error at delight.pl line 21, near "#line 3 is now "something "
Can't find string terminator '"' anywhere before EOF at delight.pl lin
+e 21.
[download]

$ perl delight.pl
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 13
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 27
END failed--call queue aborted at delight.pl line 33.
[download]

It now runs great!

The output is twice as much