For readability, here's a formatted and numbered version:
My guess is that in line 14 you're trying to assign a regular expression to a variable, and use that in the match below. To do that, you'd have to use the qr// construct, and it would be much more efficient to do that outside the loop, instead of each time again.
Other than that, you can probably do the same thing with a simple grep {}, eg
Hi Scripting Gurus, I am new bee in perl, and trying to write a script which must print the free disk space availability of C and E drives. Please advice.
Here is the script snippet and expected output:
#!/usr/bin/perl
use CGI qw/:html3 :standard/;
$spaceuselog =... (4 Replies)
I have a perl program that uses the mail program to send emails. It works fine but because I want to change the return address on the emails to be different I need to use mailx with the "-r" option. the problem is when I change this line to use mailx I no longer recieve "any" emails.
This works... (1 Reply)
Hey Guys,
I have some weird problem with printing scalars ...
When I'm executing script both are printing in terminal ...
But only one is printed to the file ?
I don't know whats going on .. :)
Btw .. I'm noobie :) took me lots of time to put this simple script together :)
Thank you... (3 Replies)
Long story short: I'm working inside of a Unix SSH under a bash shell. I have to code a C program that generates a random number. Then I have to call the compiled C program with a Perl program to run the C program 20 times and put all the generated random #s into a text file, then print that text... (1 Reply)
Hey guys i am using perl and trying to pull a list of books from a database and then populate the list in a separate TT2 file. When the list is generated there should be 39 book names. When I do the foreach statement in my tt2 below, the first statement gives me 39 Array(random number) and the... (1 Reply)
I got multiple of documents in which i have to extract a line coming after a ID..The scenario is
Customer ID: none
VT : 002/89
Customer ID: Yes
VT: 001/89
Customer ID: none
VT: 006/85
Customer ID: Yes
VT: 003/56
I have to extract the id which is coming after YES..The output... (7 Replies)
HI
I am trying to create a bash script to print whatever i type in
It has to have these below to define the size of the label and what size to print the text
N
q609
A100,10,0,5,2,2,N," "
P1
It has to be sent to below
> /dev/usblp0
So what it has to be is
Written... (12 Replies)
Hi
I have a file with number of entries
name 1 123
name 1 345
name 1 65346
name2 3243
name2 24234
name 2 234234
so on .........
how to count total number of entries for name 1 and name2...and so on Please guide. (1 Reply)
I created a program, so a kid can practice there math on it. It dispenses varies math problems and the kid must input an answer. I also want it to grade the work they have done, but I can't find the best place for it to print out the grade.
I have:
if ( $response =~ m/^/ ) {
$user_wants_to_quit... (1 Reply)
Discussion started by: germany1517
1 Replies
LEARN ABOUT REDHAT
apr::perlio
PERLIO(1) User Contributed Perl Documentation PERLIO(1)NAME
APR:PerlIO -- An APR Perl IO layer
SYNOPSIS
use APR::PerlIO ();
sub handler {
my $r = shift;
open my $fh, ">:APR", $filename, $r or die $!;
# work with $fh as normal $fh
close $fh;
return Apache::OK;
}
DESCRIPTION
"APR::PerlIO" implements a Perl IO layer using APR's file manipulation as its internals.
Why do you want to use this? Normally you shouldn't, probably it won't be faster than Perl's default layer. It's only useful when you need
to manipulate a filehandle opened at the APR side, while using Perl.
Normally you won't call open() with APR layer attribute, but some mod_perl functions will return a filehandle which is internally hooked to
APR. But you can use APR Perl IO directly if you want.
METHODS
Perl Interface:
open()
To use APR Perl IO to open a file the four arguments open() should be used. For example:
open my $fh, ">:APR", $filename, $r or die $!;
where:
the second argument is the mode to open the file, constructed from two sections separated by the ":" character: the first section is
the mode to open the file under (>, <, etc) and the second section must be a string APR.
the fourth argument can be a "Apache::RequestRec" or "Apache::ServerRec" object.
the rest of the arguments are the same as described by the open() manpage.
seek()
seek($fh, $offset, $whence);
If $offset is zero, "seek()" works normally.
However if $offset is non-zero and Perl has been compiled with with large files support ("-Duselargefiles"), whereas APR wasn't, this
function will croak. This is because largefile size "Off_t" simply cannot fit into a non-largefile size "apr_off_t".
To solve the problem, rebuild Perl with "-Uuselargefiles". Currently there is no way to force APR to build with large files support.
The C interface provides functions to convert between Perl IO and APR Perl IO filehandles.
SEE ALSO
The perliol(1), perlapio(1) and perl(1) manpages.
perl v5.8.0 2002-06-05 PERLIO(1)