|
|
Sponsored Content
Special Forums
UNIX and Linux Applications
Infrastructure Monitoring
Perl Loop Problem
Post 302417703 by mrlayance on Friday 30th of April 2010 09:44:00 AM
04-30-2010
|
|
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 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
4. 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
5. 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
6. 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
7. Shell Programming and Scripting
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)
Discussion started by: parthmittal2007
4 Replies
8. 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
9. Shell Programming and Scripting
use strict;
use warnings;
open (my $fhConditions, "<input1.txt"); #open input file1
open (my $fhConditions1, "<input2.txt");#open input file2
open (my $w1, ">output1");
open (my $w2, ">output2");
our $l = 10;#set a length to be searched for match
our $site="AAGCTT";#pattern to be matched... (1 Reply)
Discussion started by: anurupa777
1 Replies
10. Shell Programming and Scripting
I have written the below PERL script to reprocess messages from a failure queue.
It basically browses all the messages in the failure queue to individual files in a directory and then scans those files to determine the originating queue. The script will then move each message in turn from the... (0 Replies)
Discussion started by: chris01010
0 Replies
LEARN ABOUT MINIX
format
FORMAT(1) General Commands Manual FORMAT(1) NAME
format - format a PC floppy diskette SYNOPSIS
format [-v] device [media-size [drive-size]] DESCRIPTION
Format allows a user with read-write permission to device to format a floppy. Either one of the special floppy devices must be used, see fd(4), or an automatic device may be used with the size of the floppy specified on the command line. Two sizes must be given when format- ting a low density diskette in a high density drive. For example: format /dev/at1 format /dev/fd1 1200 format /dev/fd1 360 1200 The first two commands format a 1.2M diskette, the last formats a 360k diskette in a 1.2M drive. A 1.44M drive knows when it's dealing with a low density floppy, so all these commands format a 720k diskette: format /dev/fd0 720 format /dev/fd0 720 1440 format /dev/ps0 No sizes may be specified when using a special floppy device, a size must be specified when using an automatic device. OPTIONS
-v Verify the process by reading each track after formatting it. Formatting is normally blind, the controller has no idea whether it succeeds or not. Use -v on a new box of cheap diskettes, or on a diskette that may have gone bad. Verifying will increase format- ting time by 50%. SEE ALSO
mkfs(1), fd(4). DIAGNOSTICS
Numbers will be printed on standard output to show that it is busy. The locations of bad sectors are printed on standard error when veri- fying. The exit code is zero unless there are too many bad spots. AUTHOR
Kees J. Bot (kjb@cs.vu.nl) FORMAT(1)