On 11/10/2006 09:01 AM, Tony Heal wrote:
OK, the has to be an easy way to call one script OR another from within
another, but I would like suggestions, as this does not work because there
is no RegEx to put from here.
#!/usr/bin/perl
if ( -f '/usr/local/custom/backup.pl' || '/usr/loc
On 11/09/2006 10:24 PM, R. Wajda wrote:
Hi all,
is there any way how to simplify this function:
sub h_escapes {
my ($index, $char, $output);
for($index=0; $index 0x7f) {
$output = $output . sprintf("\\x%02x", $char);
} else {
$output = $output . substr($_[0], $index, 1);
}
}
return $output;
}
On 11/10/06, John W. Krahn <[EMAIL PROTECTED]> wrote:
$string =~ s/([^\x20-\x7f])/ sprintf '\x%02x', ord $1 /eg;
John
--
Thanks!
I figured slightly similar code after reading of
http://library.n0i.net/programming/perl/re_gex/#dynamic substitution
If anyone got another solution put it here
On 9 Nov 2006 at 10:49, Tom Phoenix wrote:
> On 11/9/06, Beginner <[EMAIL PROTECTED]> wrote:
>
> > I have a file that, I think is in a binary format, containing emails.
> > The file is from my email client, Pegasus, and I want to extract all
> > the emails stored within the file and write them to
OK, the has to be an easy way to call one script OR another from within
another, but I would like suggestions, as this does not work because there
is no RegEx to put from here.
#!/usr/bin/perl
if ( -f '/usr/local/custom/backup.pl' || '/usr/local/custom/backup.sh' ) {
system ("$&"); }
Hi!
2006/11/9, zentara <[EMAIL PROTECTED]>:
add
-browsecmd => sub {$hlist->anchorClear()} ,
to your hlist options.
Thank you very much for this solution! I've added it to my code. It
pretty much does what I need. However it causes the arrow keys to act
very strange. Clicking on fields
Hi ,
I wanted to put a perl script into the parameter of squid redirect module,
which should have a capable of connecting to another server and passes
another user defined HEADER into the squid back to get access web proxy and
should be handling more threads for all the users .
How it wo
R. Wajda wrote:
> Hi all,
Hello,
> is there any way how to simplify this function:
>
> sub h_escapes {
> my ($index, $char, $output);
>
> for($index=0; $index $char = ord(substr($_[0], $index, 1));
>
> if($char < 0x20 || $char > 0x7f) {
> $output = $output . sprintf("\\x%02x", $char);
> } else
Hi all,
is there any way how to simplify this function:
sub h_escapes {
my ($index, $char, $output);
for($index=0; $index 0x7f) {
$output = $output . sprintf("\\x%02x", $char);
} else {
$output = $output . substr($_[0], $index, 1);
}
}
return $output;
}
It converts 'non-printable' characters
