Re: what is the purpose of Tie::File

[Khen1950fx]

This node falls below the community's threshold of quality. You may see it by logging in.

[Lotus1]

• 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.

[Anonymous Monk]

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)

[davido]

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.

[Anonymous Monk]

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

How delightfully refreshing, here's mine

P.S.

<Reveal this spoiler or all spoilers in this node or all in this thread>

It now runs great!

<Reveal this spoiler>

The output is twice as much

Uncaught exception: Can't unlink('file.txt'): No such file or director
+y at realdelight.pl line 14.
    main::__ANON__('file.txt') called at (eval 49) line 28
    main::__ANON__('file.txt') called at realdelight.pl line 31
 at realdelight.pl line 22.
    main::__ANON__('Can\'t unlink(\'file.txt\'): No such file or direc
+tory at rea...') called at C:/perl/site/5.14.1/lib/Carp.pm line 101
    Carp::confess('Can\'t unlink(\'file.txt\'): No such file or direct
+ory') called at realdelight.pl line 14
    main::__ANON__('file.txt') called at (eval 49) line 28
    main::__ANON__('file.txt') called at realdelight.pl line 31
Can't unlink('file.txt'): No such file or directory at realdelight.pl 
+line 14.
    main::__ANON__('file.txt') called at (eval 49) line 28
    main::__ANON__('file.txt') called at realdelight.pl line 42
    main::END() called at C:/perl/site/5.14.1/lib/Carp.pm line 101
    eval {...} called at realdelight.pl line 14.
    main::__ANON__('file.txt') called at (eval 49) line 28
    main::__ANON__('file.txt') called at realdelight.pl line 42
    main::END() called at C:/perl/site/5.14.1/lib/Carp.pm line 101
    eval {...} called at C:/perl/site/5.14.1/lib/Carp.pm line 101
END failed--call queue aborted at realdelight.pl line 101.