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 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)
Hi All
I am reading the file using while loop in Perl someting like
while (my $s=<F>){
chomp($s);
..
..
..
}
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... (4 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
asp-perl
ASP-PERL(1p) User Contributed Perl Documentation ASP-PERL(1p)NAME
asp-perl - Apache::ASP CGI and command line script processor
SYNOPSIS
asp-perl [-hsdb] [-f asp.conf] [-o directory] file1 @arguments file2 @arguments ...
-h Help you are getting now!
-f Specify an alternate configuration file other than ./asp.conf
-s Setup $Session and $Application state for script.
-d Set to debug code upon errors.
-b Only return body of document, no headers.
-o Output directory, writes to files there instead of STDOUT
-p GlobalPackage config, what perl package are the scripts compiled in.
DESCRIPTION
This program will run Apache::ASP scripts from the command line. Each file that is specified will be run, and the $Request->QueryString()
and $Request->Form() data will be initialized by the @arguments following the script file name.
The @arguments will be written as space separated words, and will be initialized as an associate array where %arguments = @arguments. As
an example:
asp-perl file.asp key1 value1 key2 value2
would be similar to calling the file.asp in a web environment like
/file.asp?key1=value1&key2=value2
The asp.conf script will be read from the current directory for parameters that would be set with PerlSetVar normally under mod_perl. For
more information on how to configure the asp.conf file, please see < http://www.apache-asp.org/cgi.html >
SEE ALSO
perldoc Apache::ASP, and also http://www.apache-asp.org
COPYRIGHT
Copyright 1998-2004 Joshua Chamas, Chamas Enterprises Inc.
This program is distributed under the GPL. Please see the LICENSE file in the Apache::ASP distribution for more information.
perl v5.14.2 2011-08-15 ASP-PERL(1p)