Hi All
I am reading the file using while loop in Perl someting like
What i want to do is after the chomp statement i used some condition, if the condition is met then it should move forward otherwise it should read the new line. How Can it be done in Perl
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)
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)
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)
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)
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)
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)
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)
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)
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)
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::epoll
IO::Async::Loop::Epoll(3pm) User Contributed Perl Documentation IO::Async::Loop::Epoll(3pm)NAME
IO::Async::Loop::Epoll - use "IO::Async" with "epoll" on Linux
SYNOPSIS
use IO::Async::Loop::Epoll;
use IO::Async::Stream;
use IO::Async::Signal;
my $loop = IO::Async::Loop::Epoll->new();
$loop->add( IO::Async::Stream->new(
read_handle => *STDIN,
on_read => sub {
my ( $self, $buffref ) = @_;
while( $$buffref =~ s/^(.*)
?
// ) {
print "You said: $1
";
}
},
) );
$loop->add( IO::Async::Signal->new(
name => 'INT',
on_receipt => sub {
print "SIGINT, will now quit
";
$loop->loop_stop;
},
) );
$loop->loop_forever();
DESCRIPTION
This subclass of IO::Async::Loop uses IO::Epoll to perform read-ready and write-ready tests so that the O(1) high-performance multiplexing
of Linux's epoll_pwait(2) syscall can be used.
The "epoll" Linux subsystem uses a registration system similar to the higher level IO::Poll object wrapper, meaning that better performance
can be achieved in programs using a large number of filehandles. Each epoll_pwait(2) syscall only has an overhead proportional to the
number of ready filehandles, rather than the total number being watched. For more detail, see the epoll(7) manpage.
This class uses the epoll_pwait(2) system call, which atomically switches the process's signal mask, performs a wait exactly as
epoll_wait(2) would, then switches it back. This allows a process to block the signals it cares about, but switch in an empty signal mask
during the poll, allowing it to handle file IO and signals concurrently.
CONSTRUCTOR
$loop = IO::Async::Loop::Epoll->new()
This function returns a new instance of a "IO::Async::Loop::Epoll" object.
METHODS
As this is a subclass of IO::Async::Loop, all of its methods are inherited. Expect where noted below, all of the class's methods behave
identically to "IO::Async::Loop".
$count = $loop->loop_once( $timeout )
This method calls the "poll()" method on the stored "IO::Epoll" object, passing in the value of $timeout, and processes the results of that
call. It returns the total number of "IO::Async::Notifier" callbacks invoked, or "undef" if the underlying "epoll_pwait()" method returned
an error. If the "epoll_pwait()" was interrupted by a signal, then 0 is returned instead.
SEE ALSO
o IO::Epoll - Scalable IO Multiplexing for Linux 2.5.44 and higher
o IO::Async::Loop::Poll - use IO::Async with poll(2)AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2012-04-10 IO::Async::Loop::Epoll(3pm)