07-05-2013
You should have read perlvar documentation (using perldoc perlvar in most cases) before asking this question.
This is a special variable which controls the output buffering of the currently selected output filehandle (which is STDOUT initially). Setting it to any true value (mostly 1 assigned to it) does buffer flush after any print, printf, or write on that handle. It normally means that you get to see output on that handle immediately, without (block) buffering coming into play.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies
2. Shell Programming and Scripting
Hi ,
This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated.
use Time::Local;
my $d = $ARGV;
my $t = $ARGV;
my $m = "";
@d = split /\//, $d;
@t = split /:/, $t;
if ( $d eq "Jan" ) { $m = 0 }... (7 Replies)
Discussion started by: akil
7 Replies
3. Shell Programming and Scripting
so in unix this command works works and shows me a list of directories
find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt
but when i try running a perl script to run this command
my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies
4. Shell Programming and Scripting
How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ?
Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies
5. Shell Programming and Scripting
I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense.
... (4 Replies)
Discussion started by: kittyluva2
4 Replies
6. Shell Programming and Scripting
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies
7. UNIX for Advanced & Expert Users
we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module
i can't find with instmodsh in the inventory for installed Perl modules.
- i have learned of using instmodsh command : i find out what modules are already installed on my system.
... (0 Replies)
Discussion started by: bora99
0 Replies
8. Shell Programming and Scripting
Hi all,
I have written a perl code and stored the data into Data structure using Data::Dumper module.
But not sure how to retreive the data from the Data::Dumper.
Eg.
Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ... (1 Reply)
Discussion started by: scriptscript
1 Replies
9. Programming
My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence.
I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have
... (2 Replies)
Discussion started by: alex_5161
2 Replies
10. Programming
I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open())
I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
LEARN ABOUT MOJAVE
io::pager::buffered5.18
IO::Pager::Buffered(3) User Contributed Perl Documentation IO::Pager::Buffered(3)
NAME
IO::Pager::Buffered - Pipe deferred output to PAGER if destination is a TTY
SYNOPSIS
use IO::Pager::Buffered;
{
local $token = IO::Pager::Buffered::open *STDOUT;
print <<" HEREDOC" ;
...
A bunch of text later
HEREDOC
}
{
# You can also use scalar filehandles...
my $token = IO::Pager::Buffered::open($FH) or warn($!);
print $FH "No globs or barewords for us thanks!
";
}
{
# ...or an object interface
my $token = new IO::Pager::Buffered;
$token->print("OO shiny...
");
}
DESCRIPTION
IO::Pager subclasses are designed to programmatically decide whether or not to pipe a filehandle's output to a program specified in PAGER;
determined and set by IO::Pager at runtime if not yet defined.
This subclass buffers all output for display upon exiting the current scope. If this is not what you want look at another subclass such as
IO::Pager::Unbuffered. While probably not common, this may be useful in some cases,such as buffering all output to STDOUT while the process
occurs, showing only warnings on STDERR, then displaying the output to STDOUT after. Or alternately letting output to STDOUT slide by and
defer warnings for later perusal.
METHODS
Class-specific method specifics below, others are inherited from IO::Pager.
open( [FILEHANDLE] )
Instantiate a new IO::Pager to paginate FILEHANDLE if necessary. Assign the return value to a scoped variable. Output does not occur until
all references to this variable are destroyed eg; upon leaving the current scope. See "DESCRIPTION".
new( [FILEHANDLE] )
Almost identical to open, except that you will get an IO::Handle back if there's no TTY to allow for IO::Pager agnostic programming.
tell( FILEHANDLE )
Returns the size of the buffer in bytes.
flush( FILEHANDLE )
Immediately flushes the contents of the buffer.
If the last print did not end with a newline, the text from the preceding newline to the end of the buffer will be flushed but is unlikely
to display until a newline is printed and flushed.
CAVEATS
If you mix buffered and unbuffered operations the output order is unspecified, and will probably differ for a TTY vs. a file. See perlfunc.
$, is used see perlvar.
SEE ALSO
IO::Pager, IO::Pager::Unbuffered, IO::Pager::Page,
AUTHOR
Jerrad Pierce <jpierce@cpan.org>
Florent Angly <florent.angly@gmail.com>
This module was inspired by Monte Mitzelfelt's IO::Page 0.02
COPYRIGHT AND LICENSE
Copyright (C) 2003-2012 Jerrad Pierce
o Thou shalt not claim ownership of unmodified materials.
o Thou shalt not claim whole ownership of modified materials.
o Thou shalt grant the indemnity of the provider of materials.
o Thou shalt use and dispense freely without other restrictions.
Or, if you prefer:
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.0 or, at
your option, any later version of Perl 5 you may have available.
perl v5.18.2 2012-09-04 IO::Pager::Buffered(3)