question :how can i iterate to next item in for loop with the loop
e.g
for i in `cat abc.txt`
do
echo $i // this will display first line
i=$i+1; // this doesnt work for me.
echo $i; //this will display secound line
done
If we are working with lines, we do not want to expand the entire file "abc.txt" on the "for" line and then read it word by word.
We need to read each line one-by one with a method which preserves the record construct.
To make the extra read in the while loop:
Don't understand your second question. Not clear which file is which or what the process is.
Another question, is it possible to, in a for-loop incrementing until it reaches a certain number, to have it loop again without incrementing? Just have it drop what it is doing when it reaches this command and start again at the same number it was at? I know I could make a while loop and just... (0 Replies)
I wonder how to stop further loop iterations when conditions gets false e.g.
This file.txt contains the following structure :
1
2
3
4
5
6
7
8
9
10
How to stop iteration when if statement gets false ?
for n in `cat file.txt`
do
if (( n<=5 )) (1 Reply)
for VGLIST in `lsvg -o`
do
CLOSED_OUT=`echo $VGLIST | lsvg -l $VGLIST | awk '{print $6 " " $7}' | grep closed`
if ]; then
echo "Filesystems $CLOSED_OUT in VG that are in Closed status"
else
echo "\n Some message"
fi
Above Code is working fine, but echo "Filesystems $CLOSED_OUT... (8 Replies)
I have a script with logic like:
my_function()
{
if
mkdir $1
mkdir mydir_${2}
else
do something else
fi
}
read in list of items
while read list
do
my_function $list `date`
done
so basically it will make a directory for every name in the list and create a directory with the... (6 Replies)
bash in RHEL 6.4
I have a requirement in which I want to get the iteration count from a WHILE LOOP.
The below mentioned simple script test.sh works fine. In the below script, the WHILE loop will iterate every 5 seconds infinitely until it greps the string BASKETBALL from /tmp/somestring.txt... (6 Replies)
I am trying to check multiple server's "uptime" in a loop over "ssh".
When I execute multiple ssh commands with hard coded servernames script is executing fine.
But when I pass server names using while loop, script is exiting after checking first server's status, why?
# serverList... (8 Replies)
Hello,
I have been stuck on this for some time and invested many hours trying to find a solution. I am trying to either loop through two variables or or two arrays and not sure how to do it. I am limited to ksh only, and don't have the ability to do a foreach, or for i AND for j etc...I... (19 Replies)
Hello,
I've written a script to automate encoding of all the MP4 files in a directory (incl. subdirectories). But unfortunately it's running for the first MP4 file only.
My machine details:
root@Ubuntu16:~# uname -a
Linux Ubuntu16 4.10.0-28-generic #32~16.04.2-Ubuntu SMP Thu Jul 20 10:19:48... (2 Replies)
Discussion started by: prvnrk
2 Replies
LEARN ABOUT MOJAVE
archive::zip::memberread
Archive::Zip::MemberRead(3) User Contributed Perl Documentation Archive::Zip::MemberRead(3)NAME
Archive::Zip::MemberRead - A wrapper that lets you read Zip archive members as if they were files.
SYNOPSIS
use Archive::Zip;
use Archive::Zip::MemberRead;
$zip = Archive::Zip->new("file.zip");
$fh = Archive::Zip::MemberRead->new($zip, "subdir/abc.txt");
while (defined($line = $fh->getline()))
{
print $fh->input_line_number . "#: $line
";
}
$read = $fh->read($buffer, 32*1024);
print "Read $read bytes as :$buffer:
";
DESCRIPTION
The Archive::Zip::MemberRead module lets you read Zip archive member data just like you read data from files.
METHODS
Archive::Zip::Member::readFileHandle()
You can get a "Archive::Zip::MemberRead" from an archive member by calling "readFileHandle()":
my $member = $zip->memberNamed('abc/def.c');
my $fh = $member->readFileHandle();
while (defined($line = $fh->getline()))
{
# ...
}
$fh->close();
Archive::Zip::MemberRead->new($zip, $fileName)
Archive::Zip::MemberRead->new($zip, $member)
Archive::Zip::MemberRead->new($member)
Construct a new Archive::Zip::MemberRead on the specified member.
my $fh = Archive::Zip::MemberRead->new($zip, 'fred.c')
setLineEnd(expr)
Set the line end character to use. This is set to
by default except on Windows systems where it is set to
. You will only need
to set this on systems which are not Windows or Unix based and require a line end different from
. This is a class method so call as
"Archive::Zip::MemberRead"->"setLineEnd($nl)"
rewind()
Rewinds an "Archive::Zip::MemberRead" so that you can read from it again starting at the beginning.
input_record_separator(expr)
If the argument is given, input_record_separator for this instance is set to it. The current setting (which may be the global $/) is
always returned.
input_line_number()
Returns the current line number, but only if you're using "getline()". Using "read()" will not update the line number.
close()
Closes the given file handle.
buffer_size([ $size ])
Gets or sets the buffer size used for reads. Default is the chunk size used by Archive::Zip.
getline()
Returns the next line from the currently open member. Makes sense only for text files. A read error is considered fatal enough to
die. Returns undef on eof. All subsequent calls would return undef, unless a rewind() is called. Note: The line returned has the
input_record_separator (default: newline) removed.
getline( { preserve_line_ending => 1 } )
Returns the next line including the line ending.
read($buffer, $num_bytes_to_read)
Simulates a normal "read()" system call. Returns the no. of bytes read. "undef" on error, 0 on eof, e.g.:
$fh = Archive::Zip::MemberRead->new($zip, "sreeji/secrets.bin");
while (1)
{
$read = $fh->read($buffer, 1024);
die "FATAL ERROR reading my secrets !
" if (!defined($read));
last if (!$read);
# Do processing.
....
}
AUTHOR
Sreeji K. Das <sreeji_k@yahoo.com>
See Archive::Zip by Ned Konz without which this module does not make any sense!
Minor mods by Ned Konz.
COPYRIGHT
Copyright 2002 Sreeji K. Das.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2014-01-08 Archive::Zip::MemberRead(3)