07-17-2012
IF you can be bothered to have a look in a beginners book about PERL you might be enlightened, ELSE you won't. It is that simple.
I hope this helps.
bakunin
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Can anyone tell me why this program won't kick out when the time gets beyond time in the loop?
sub showtime
{
local($format,$military)=@_;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
if ((! $military) && ($hour > 12)) {$hour-=12;}
... (2 Replies)
Discussion started by: methos
2 Replies
2. Shell Programming and Scripting
my $i;
my $j;
for($i=1;$i<=5;$i++)
{
for($j=$i;$j<5;$j++)
{
print " ";
}
print "$i\n";
}
But the output i need is
1
12
123
1234
12345
Help me please (5 Replies)
Discussion started by: priyas
5 Replies
3. Shell Programming and Scripting
I am using a Perl script to open a series of files in a loop, separate the paragraph into lines, and output the lines into a new file. The code works perfectly fine, except when the source file is over a certain size the loop gets stuck and won’t move on to the next file. It still does what it is... (0 Replies)
Discussion started by: renthead720
0 Replies
4. Shell Programming and Scripting
I need to process a file line-by-line using some value from a shell variable
Something like:perl -p -e 's/$shell_srch/$shell_replace/g' input.txt
I can't make the '-s' work in the '-p' or '-n' input loop (or couldn't find a syntaxis.)
I have searched and found... (4 Replies)
Discussion started by: alex_5161
4 Replies
5. Infrastructure Monitoring
Another newbie question... I can not figure out how to get this running using a loop. Here is what I have now.
#!/usr/bin/perl
use SNMP::Info;
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;
close(DAT);
foreach $dest (@raw_data)
{... (2 Replies)
Discussion started by: mrlayance
2 Replies
6. Shell Programming and Scripting
I am trying to print out a section of a file begining at the start and printng until a character is found.
My code and input file are below. This code is printing out every line except for the line with the character which is not what I want the out put should be a file with numbers 1-4.
... (3 Replies)
Discussion started by: cold_Que
3 Replies
7. Shell Programming and Scripting
I wrote a script to list all lines in a file with Perl. I am having trouble with the looping part of it. My script is supposed to look at the file and as long as the file is larger than the current line it prints a new line.
I am getting an error that won't stop on the while line of my code I... (4 Replies)
Discussion started by: zero3ree
4 Replies
8. Programming
I am trying to create a success and fail as below in a perl script :
while echo$? is 2 it should append as below to .fail file
=====================
if ( open(IN, "$outputfile"))
{
while( $my_line = <IN> )
{
#print "$my_line \n" ;
return 0;
... (3 Replies)
Discussion started by: sriram003
3 Replies
9. Shell Programming and Scripting
I have the below scenario in perl
cd $FIDE_RECEIVE ;
# see the files that start with feedmgr.usfed.tips
$CycleDate = &fi_get_curr_date('US','NIGHTLY_CYCLE','PROCESS');
head -1 GNM_GEO.DAT.EMBS* |grep -v GNM_GEO.DAT.EMBS | awk '{$4 " " $5}'
output for above command :... (3 Replies)
Discussion started by: ptappeta
3 Replies
10. Shell Programming and Scripting
I have a script that needs to wait on another script to finish. I created a sub routine to check the file for the number 0 but my until statement keeps on going. I tried eq, == and =~ but same thing.
my $CHECKING_FILE = 1;
do {
sleep(5);
$CHECKING_FILE = check_file();
... (2 Replies)
Discussion started by: numele
2 Replies
LEARN ABOUT DEBIAN
io::async::loop::poll
IO::Async::Loop::Poll(3pm) User Contributed Perl Documentation IO::Async::Loop::Poll(3pm)
NAME
"IO::Async::Loop::Poll" - use "IO::Async" with "poll(2)"
SYNOPSIS
Normally an instance of this class would not be directly constructed by a program. It may however, be useful for runinng IO::Async with an
existing program already using an "IO::Poll" object.
use IO::Poll;
use IO::Async::Loop::Poll;
my $poll = IO::Poll->new;
my $loop = IO::Async::Loop::Poll->new( poll => $poll );
$loop->add( ... );
while(1) {
my $timeout = ...
my $ret = $poll->poll( $timeout );
$loop->post_poll;
}
DESCRIPTION
This subclass of "IO::Async::Loop" uses an "IO::Poll" object to perform read-ready and write-ready tests.
To integrate with existing code that uses an "IO::Poll", a "post_poll" can be called immediately after the "poll" method on the contained
"IO::Poll" object. The appropriate mask bits are maintained on the "IO::Poll" object when notifiers are added or removed from the set, or
when they change their "want_writeready" status. The "post_poll" method inspects the result bits and invokes the "on_read_ready" or
"on_write_ready" methods on the notifiers.
CONSTRUCTOR
$loop = IO::Async::Loop::Poll->new( %args )
This function returns a new instance of a "IO::Async::Loop::Poll" object. It takes the following named arguments:
"poll" The "IO::Poll" object to use for notification. Optional; if a value is not given, a new "IO::Poll" object will be constructed.
METHODS
$count = $loop->post_poll( $poll )
This method checks the returned event list from a "IO::Poll::poll" call, and calls any of the notification methods or callbacks that are
appropriate. It returns the total number of callbacks that were invoked; that is, the total number of "on_read_ready" and "on_write_ready"
callbacks for "watch_io", and "watch_time" event callbacks.
$poll Reference to the "IO::Poll" object
$count = $loop->loop_once( $timeout )
This method calls the "poll" method on the stored "IO::Poll" object, passing in the value of $timeout, and then runs the "post_poll" method
on itself. It returns the total number of callbacks invoked by the "post_poll" method, or "undef" if the underlying "poll" method returned
an error.
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2012-10-24 IO::Async::Loop::Poll(3pm)