Re: what is the purpose of Tie::File

[Khen1950fx]

in reply to what is the purpose of Tie::File

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

#!/usr.bin/perl -l

BEGIN { 
    $| = 1;
    $^W = 1;
}

use strict;
use autodie;
use warnings;

my $file = "file.txt";
1 while unlink $file;

use Tie::File;

my $o = tie my @lines, 'Tie::Tile', $file, memory => 0;
for (@lines) {
    $lines[2] = "something else is here now';
    print $lines[2];
    #line 3 is now "something else is here now".
}

END {
    undef $o;
    untie @lines;
    1 while unlink $file;
    #clears and empties everything.
}

[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

<Reveal this spoiler>

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