Webmaster Forum / Perl / Modules / August 2008

I have created a simple script to test if a TCP port is open.
my  $sock  =  new  IO::Socket::INET(  PeerAddr  =>  $host,  PeerPort
=>  $port,  Proto  =>  "tcp", timeout => $timeout);
The problem is that, if a firewall is dropping my request, the script

I'm automating some tests for networks devices, and trying to use Perl
to do the job.  Basically, I need to:
1) SSH into a device
2) run some commands

I got *really* tired of being tripped up, at run-time (!), by spelling
mistakes in subroutine names, which even 'use strict' doesn't pick up

So, I wrote a module, provisionally called 'Ensure', which can be used

I use Perl regular expressions to match a pattern for contents of log
files that are large (about 50MB or more).
I actually read the contents to a scalar & match treating the scalar
as a single line (s option).

Hi, I hope this isn't too dumb of a question. How can I get my Perl
CGI script to display a flat HTML file (in fact, the same HTML file)
after the submit button has been clicked? Basically I have a flat HTML
file with a small form in it; I want the same page to redisplay after

sed "s/ \.\.\.\.\.\.\.\./ /" file_a > file_b
I want to replace all strings of one blank followed by 8 dots
( ........) with just one blank ( ). It works correctly in the shell.
But If I try to run it in Perl like following:

Hi, all:
In order to replace }PERM= into PERM= in a file, I ran a command:
sed "s/}PERM=/PERM=/" record_with_comment_tmp > record_with_comment
It works.

=head1 NAME
Devel::Callsite - Get current callsite
=head1 SYNOPSIS
 use Devel::Callsite;

Howdy -
Anyone know of an existing module that can be used to spew out messages
(info/warn/error/etc) in what I call "bootloader format".  I don't know
the real name for this apparently defacto standard, but the messaging

Well, I finally uploaded POOF to CPAN.  I know, I know, there are
already too many OO frameworks already, but although some of them are
really good I was not completely happy with any of them so I create my
own based on a tied hash for regular classes or array for

It would be really nice, someday, to use the $cgi-

works right and, oh, you know, maybe could even be passed to LibXML or
something...

my C module needs to consult a data file (~80mb)
is there some perl/unix common practice where to store such
accompanying data
and how to reliably open it from the embeded C code?

Heya, all,
I'm wondering if anyone has ever needed to, or know how, to do this:
I need to use SAX, because I'm dealing with XML that's too large for
XMLParser. This I know. And in the end I'm needing to load it into

I have an xml file that I'm passing through XMLIn() and the source xml
has chars that look like this in vi:
Theyâre
After I look at the parsed tag via Dumper() I see this in vi:

I've searched around but did not found any satifiying answer; maybe
what i'm trying to do is not to be done in Perl, but i just want a
confirmation.
Here's the code i try (it don't work)