hi i'm writing multiclient perl server cross plataform
it will redirect one connection to any computer inside mine lan
so when someone connect on this server
it create a socket and connect to the computer
create two threads and read the data incoming from the client
and send to another... (0 Replies)
I have a cgi script I run through apache2 and I need to have a line that contains double quotes within double quotes.
Here's what I need PERL to pass to rrdtool:
HRULE:30#BBBB00:"30.0 constant":dashesIt's a little more complicated since I also have variables in the statement which requires... (13 Replies)
I have a problem with signal handlers not working.
I have a long 1000 line code and somehow this code for signal handling is not working:
$SIG{INT} = \&interrupt;
sub interrupt {
print STDERR "Caught a control c!\n";
exit; # or just about anything else you'd want to do
}
Any... (2 Replies)
Hey
I am new to programming in general but am trying to work in Perl.
The thing is that almost every time I write a script (I use nedit) I get problems with Alt Gr.
E.g. In stead of } I get <gs> or in stead of \ nothing happens. Sometimes it's really bad and when I want a new line then... (1 Reply)
Can anyone break down the different methods of using SSH in perl? I'm currently using Net::SSH::Expect, which allows me to login to a machine and execute multiple commands without having to ssh again. This feature of holding the session works well for me, but it's slow. If I set timeouts to 4... (3 Replies)
for security reasons I can not post any part of the script in question in this thread. i hope im not breaking any rules by not doing so.
but i have a perl script that i've been asked to turn on debugging on.
i didn't write this perl script and i have very very little knowledge of perl. so i... (3 Replies)
Hello
I am on my way to improve my wonderful Perl skills, I got an issue which I want to share with you all. I have a Perl module which looks like
package Cocoa;
require Exporter;
@ISA = qw(Exporter);
my $a='';
my $b='';
my $c='';
sub new {
my $this = shift; # Create... (8 Replies)
Hi,
We have RHEL 5.X OS installed here, where we need few Perl modules installed. I have local copy of Perl modules in .tar.gz format. The problem is that we don't have Internet available here and it is really pain to install all the modules manually on all the servers one by one.
So can I... (1 Reply)
the attached perl script is a deamon that, once kicked off from the command line, it runs in the background and waits for the master server to tell it what plugins to run.
the script works well. but the problem is, whenever i start it, after about a few seconds of starting it, i start getting... (4 Replies)
Discussion started by: SkySmart
4 Replies
LEARN ABOUT DEBIAN
jifty::manual::style
Jifty::Manual::Style(3pm) User Contributed Perl Documentation Jifty::Manual::Style(3pm)NAME
Jifty::Manual::Style - Jifty coding style guide
Default style
When in doubt, default to whatever Damian Conway's Perl Best Practices says.
Private documentation
When documenting a private method, or providing documentation which is not useful to the user of the module (and is presumably useful to
the developer), wrap it in =begin/end private. This way it does not show up in perldoc where a user would see it and yet is still
available and well formatted (that is, not just a lump comment) when looking at the code.
=begin private
=head2 import_extra
Called by L<Test::More>'s C<import> code when L<Jifty::Test> is first
C<use>'d, it calls L</setup>, and asks Test::More to export its
symbols to the namespace that C<use>'d this one.
=end private
sub import_extra {
...
}
Test temp files
Files created by tests should be declared as such using Jifty::Test->test_file() so they are cleaned up on a successful test run.
Use Shell::Command
Shell::Command has a number of functions which work like common shell file commands such as "touch", "cp" and "mv". They are battle tested
and cross-platform. Use them instead of coding your own.
For example, instead of this:
open my $file, ">foo";
close $file;
Do this:
use Shell::Command;
touch $file;
Case insensitive matching
To check if a string equals another string case insensitively, do this
lc $foo eq lc $bar;
lc $foo eq 'bar';
not this:
$foo =~ /^Q$barE/i;
$foo =~ /^bar$/i;
perl v5.14.2 2010-12-08 Jifty::Manual::Style(3pm)