I have a perl script which is just reading from the file but what I would like to understand is how the counter is moving without using the loop in the script.
Below are the details:
Code:
$ more /tmp/abc.txt
This is 0
This is 1
This is 2
This is 3
This is 4
This is 5
This is 6
This is 7
This is 8
This is 9
Script to read the above file is as :
Code:
$ more file1.pl
#!/usr/bin/perl
#
sub readfile
{
my ($rec,$INFO);
$INF=shift;
if (defined($rec = scalar <$INF>))
{
print $rec;
}
}
$file='/tmp/abc.txt';
open(xyz,$file);
$i=0;
$tes=readfile(xyz);
$tes=readfile(xyz);
when I am executing the above script, it is throwing the output as :
Code:
$ perl file1.pl
This is 0
This is 1
How counter in the file is moving to next row when I am not moving it and I am also not using any loops anywhere? I would just like to understand that? Does that mean loops are not required for moving through the file or I am getting it wrong somewhere?
Thanks in advance for any help on this!
Moderator's Comments:
Use code tags please, see PM.
Last edited by zaxxon; 07-12-2013 at 07:51 AM..
Reason: code tags and indention
Hi,
I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file.......
$::file= "\adder\testfile.txt"
open(TEST1,$::file);
some write operation
close(TEST1)
open(TEST1,$::file) 'I GET A ERROR CAN OPEN... (2 Replies)
here is simple perl script i wanted for my net connection ... just to check if default gateway is pingable or not if not write in log file but problem is that i can not write in file i can print on STDOUT but not in file ...why so ??
same thing was there when i was tying to write on sockets... (7 Replies)
Hi Experts,
I have a big text file, so I want read it at eof to upper bound !. after I use a fseek to go SEEK_END, is it possible to step up upperbound?
Best Regards.
Note that I'm used perl script. (2 Replies)
Hi there,
I'm newby in perl and XML. I can read and parse Xml with XML-Node upper XML::Parser, but how can I create XML tags and pack my individual data in it then send through socket. PLZ lead me :)
Thanks in Advance. (1 Reply)
Hi All,
I am comparing two strings inside an if condition if the strings are same then it should go inside the loop else it should execute code given in else part.
But there is a but inside my script
Even if the if condition is true
it is not going inside the loop also it is executing... (4 Replies)
Hi ,
Is there any way to achieve following using perl program (i.e without using system command).
1.system ("echo 'test' > /usr/spool/ship.csv");
2.system ("cat /usr/ajay_test* >> /usr/spool/RAM/work/patil.csv");
3.system("> /usr/spool/ajay.txt");
e.g
for system("rm -f... (1 Reply)
Hi All,
I'm pretty new to the forum and also to UNIX. I have a requirement for which I need some help. I have a script (example.script) where I get user inputs using the read command. I would need to pass the read-fetched input to a perl command (explained below) in my script. The part which... (3 Replies)
$# some text
$$ some text
$@ some text
$$. some text
Mg1 some text
Mg2 some text
.
.
.
Mg10 some text
The above 10 lines are to be extracted except the lines starting from $#,$$.,... (4 Replies)
I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file.
perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4
How do I handle errors coming out... (1 Reply)
Hi,
I am reading and file and writting each word to other file.
where I have used array to store the data.
I am getting below error as
"Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> "
Where my line 51 code is
50 foreach... (8 Replies)
Discussion started by: Beginer123
8 Replies
LEARN ABOUT DEBIAN
cgi::compile
CGI::Compile(3pm) User Contributed Perl Documentation CGI::Compile(3pm)NAME
CGI::Compile - Compile .cgi scripts to a code reference like ModPerl::Registry
SYNOPSIS
use CGI::Compile;
my $sub = CGI::Compile->compile("/path/to/script.cgi");
DESCRIPTION
CGI::Compile is an utility to compile CGI scripts into a code reference that can run many times on its own namespace, as long as the script
is ready to run on a persistent environment.
NOTE: for best results, load CGI::Compile before any modules used by your CGIs.
RUN ON PSGI
Combined with CGI::Emulate::PSGI, your CGI script can be turned into a persistent PSGI application like:
use CGI::Emulate::PSGI;
use CGI::Compile;
my $cgi_script = "/path/to/foo.cgi";
my $sub = CGI::Compile->compile($cgi_script);
my $app = CGI::Emulate::PSGI->handler($sub);
# $app is a PSGI application
CAVEATS
If your CGI script has a subroutine that references the lexical scope variable outside the subroutine, you'll see warnings such as:
Variable "$q" is not available at ...
Variable "$counter" will not stay shared at ...
This is due to the way this module compiles the whole script into a big "sub". To solve this, you have to update your code to pass around
the lexical variables, or replace "my" with "our". See also <http://perl.apache.org/docs/1.0/guide/porting.html#The_First_Mystery> for more
details.
AUTHOR
Tatsuhiko Miyagawa <miyagawa@bulknews.net>
CONTRIBUTORS
Rafael Kitover <rkitover@cpan.org>
Hans Dieter Pearcey <hdp@cpan.org>
COPYRIGHT &; LICENSE
Copyright (c) 2009 Tatsuhiko Miyagawa <miyagawa@bulknews.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
ModPerl::RegistryCooker CGI::Emulate::PSGI
perl v5.14.2 2011-05-24 CGI::Compile(3pm)
07-12-2013
