03-03-2010
Hi.
Sorry, I have no real experience with sockets. Off the top of my head, it may be because Solaris and Linux are so different in many ways.
I'd begin reading man pages, then perhaps some networking books, such as Chapter 6 in Stevens' classic, UNIX Network Programming, perhaps.
Some one may stop by with more pertinent information.
Best wishes ... cheers, drl
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
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)
Discussion started by: vivekshankar
2 Replies
2. Shell Programming and Scripting
Guys,
I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script.
There two scripts : one shell script and one perl script.
The shell script calls the perl script.
For e.g. shell script a.sh and perl scipt sig.pl.
Shell script a.sh looks something like this :... (6 Replies)
Discussion started by: obelix
6 Replies
3. Programming
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)
Discussion started by: Zaxon
1 Replies
4. Shell Programming and Scripting
Hi,
Here is my piece of code--
sub per_user_qna_detail
{
for($index=0;$index<@records;$index++)
{
if($records =~ m/^(.*)\s*Morocco.*Entering\s*Module::authenticate/)
{
printf "INSIDE per_user_qna_detail on LINE NO $index\n";
$Time_Stamp = $1;... (0 Replies)
Discussion started by: namishtiwari
0 Replies
5. Shell Programming and Scripting
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)
Discussion started by: bharath.gct
3 Replies
6. Infrastructure Monitoring
I can get this working, but if something is down I get an error and the script does not move on. I can not get the "else" function working. What might I be doing wrong?
use SNMP::Simple
my %ios = ();
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;... (4 Replies)
Discussion started by: mrlayance
4 Replies
7. Programming
$# 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)
Discussion started by: baig.abdul
4 Replies
8. Shell Programming and Scripting
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)
Discussion started by: OTChancy
1 Replies
9. UNIX for Dummies Questions & Answers
Hi
Am making connection to oracle using ISQL as shown in the code.
This code is just a minor part of a big code.
I want to capture the error if the password/login is wrong or if connection is not made.
I need to capture the error code also.
Also, If such an error occurs, i need to exit out... (4 Replies)
Discussion started by: irudayaraj
4 Replies
10. Shell Programming and Scripting
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 MOJAVE
apr::perlio
install::TempContent::Objects::mod_perl-2.0.9::docs::apiUserRContributed Pinstall::TempContent::Objects::mod_perl-2.0.9::docs::api::APR::PerlIO(3)
NAME
APR::PerlIO -- Perl IO layer for APR
Synopsis
# under mod_perl
use APR::PerlIO ();
sub handler {
my $r = shift;
die "This Perl build doesn't support PerlIO layers"
unless APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED;
open my $fh, ">:APR", $filename, $r->pool or die $!;
# work with $fh as normal $fh
close $fh;
return Apache2::Const::OK;
}
# outside mod_perl
% perl -MAPR -MAPR::PerlIO -MAPR::Pool -le
'open my $fh, ">:APR", "/tmp/apr", APR::Pool->new or die "$!";
print $fh "whoah!";
close $fh;'
Description
"APR::PerlIO" implements a Perl IO layer using APR's file manipulation API internally.
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.
Prerequisites
Not every Perl will have full "APR::PerlIO" functionality available.
Before using the Perl IO APR layer one has to check whether it's supported by the used APR/Perl build. Perl 5.8.x or higher with perlio
enabled is required. You can check whether your Perl fits the bill by running:
% perl -V:useperlio
useperlio='define';
It should say define.
If you need to do the checking in the code, there is a special constant provided by "APR::PerlIO", which can be used as follows:
use APR::PerlIO ();
die "This Perl build doesn't support PerlIO layers"
unless APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED;
Notice that loading "APR::PerlIO" won't fail when Perl IO layers aren't available since "APR::PerlIO" provides functionality for Perl
builds not supporting Perl IO layers.
Constants
"APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED"
See Prerequisites.
API
Most of the API is as in normal perl IO with a few nuances listed in the following sections.
META: need to rework the exception mechanism here. Current success in using errno ($!) being set (e.g. on open()) is purely accidental and
not guaranteed across all platforms and functions. So don't rely on $!. Will use "APR::Error" for that purpose.
"open"
Open a file via APR Perl IO layer.
open my $fh, ">:APR", $filename, $r->pool or die $!;
arg1: $fh ( GLOB filehandle )
The filehandle.
arg2: $mode ( string )
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. For more information refer to the open entry in the perlfunc manpage.
arg3: $filename ( string )
The path to the filename to open
arg4: $p ( "APR::Pool" )
The pool object to use to allocate APR::PerlIO layer.
ret: ( integer )
success or failure value (boolean).
since: 2.0.00
"seek"
Sets $fh's position, just like the "seek()" Perl call:
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.
since: 2.0.00
C API
The C API provides functions to convert between Perl IO and APR Perl IO filehandles.
META: document these
See Also
mod_perl 2.0 documentation. The perliol(1), perlapio(1) and perl(1) manpages.
Copyright
mod_perl 2.0 and its core modules are copyrighted under The Apache Software License, Version 2.0.
Authors
The mod_perl development team and numerous contributors.
perl v5.18.2 2015-0install::TempContent::Objects::mod_perl-2.0.9::docs::api::APR::PerlIO(3)