Simple autoflush module

Category:	Miscellaneous
Author/Contact Info	RMGir
Description:	I do a lot of one-liners, and often want Autoflush turned on. But typing `perl -ne'BEGIN{$\|=1}...'` [download] for each is a bit of a pain, so I wrote this so I can do `perl -MAF -e'...'` [download] instead. I could always do `perl -ne'$\|=1;...'` [download] but that's probably very inefficient. The name is short, since calling it "Acme::Autoflush" would pretty well defeat the purpose.
`package AF; # that's all there is to this module; we just # want STDOUT to autoflush. If a different # handle is selected when we get here, well, # too bad =) # As merlyn pointed out, I didn't need a BEGIN here... $\|=1; # USAGE: perl -MAF -ne'whatever-you-want' # or # perl -MAF -pe'whatever' # I don't even need this 1, since the result of the # assignment is 1, but I think it's cleaner to leave this # in 1;`

Comment on Simple autoflush module Download Code

Replies are listed 'Best First'.
•Re: Simple autoflush module by merlyn (Sage) on Aug 12, 2002 at 19:10 UTC
The "BEGIN" is not necessary, since you are "use"-ing it. -- Randal L. Schwartz, Perl hacker	[reply]
Re: •Re: Simple autoflush module by RMGir (Prior) on Aug 12, 2002 at 19:29 UTC
Good point, thanks. It's not a big problem, though, since I care more about saving keystrokes on the commandline than in the module. -- Mike	[reply]
Re: Simple autoflush module by BrowserUk (Patriarch) on Aug 13, 2002 at 04:50 UTC
Probably not all you want, but name this `#!perl -w $\|++; eval <>;` [download] as p1.pl (and under Win32 at least) you can type: `C:\test>p1 print "hello world!" hello world! C:\test>` [download] Gets around all (most?) of the brain-dead CLP quoting problems.	[reply] [d/l] [select]
Re: Re: Simple autoflush module by RMGir (Prior) on Aug 13, 2002 at 11:21 UTC
Very cool, thanks! This thread is turning into lazy perl central :) -- Mike	[reply]
Re: Simple autoflush module by robobunny (Friar) on Aug 12, 2002 at 22:16 UTC
you could save yet more keystrokes by making a small wrapper script. `#!/usr/bin/perl $cmd = join(';', @ARGV); system(qq{/usr/bin/perl -ne'\$\|=1;$cmd'});` [download] then name it something like 'nperl' and all you have to do is: echo "werd up" \| nperl s/e/o/g print word up	[reply] [d/l]
Re: Re: Simple autoflush module by RMGir (Prior) on Aug 12, 2002 at 23:34 UTC
Nice one, thanks! My 1-liners tend to be a bit more complex than this would handle (in fact, they're often 2 and 1/2 liners:), but that'd be very handy for the short cases. -- Mike	[reply]


Do you know where your variables are?
	PerlMonks