download java applications

2006-11-10 Thread cool planet
Hi How , it is possible to download java applications (jad/jar) via perl - cgi ? This would be related to wap contents . can i see few examples ? Thank you, Kane. - Everyone is raving about the all-new Yahoo! Mail beta.

Re: download java applications

2006-11-10 Thread David Dorward
On Fri, Nov 10, 2006 at 03:05:48AM -0800, cool planet wrote: How , it is possible to download java applications (jad/jar) via perl - cgi ? It is no different from downloading any other resource. can i see few examples ? http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP.pm -- David

Ansi hex escapes conversion

2006-11-10 Thread R. Wajda
Hi all, is there any way how to simplify this function: sub h_escapes { my ($index, $char, $output); for($index=0; $indexlength($_[0]); $index++) { $char = ord(substr($_[0], $index, 1)); if($char 0x20 || $char 0x7f) { $output = $output . sprintf(\\x%02x, $char); } else { $output = $output .

Re: Ansi hex escapes conversion

2006-11-10 Thread John W. Krahn
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; $indexlength($_[0]); $index++) { $char = ord(substr($_[0], $index, 1)); if($char 0x20 || $char 0x7f) { $output = $output . sprintf(\\x%02x,

Perl proxy - adding user defined HEADERS

2006-11-10 Thread luke devon
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

Re: Question on Tk::HList

2006-11-10 Thread DJ Gruby
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

call on script OR another

2006-11-10 Thread Tony Heal
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 ($); }

Re: Extract data from binary file

2006-11-10 Thread Beginner
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 separate

Re: Ansi hex escapes conversion

2006-11-10 Thread R. Wajda
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,

Re: Ansi hex escapes conversion

2006-11-10 Thread Mumia W.
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; $indexlength($_[0]); $index++) { $char = ord(substr($_[0], $index, 1)); if($char 0x20 || $char 0x7f) { $output = $output .

Re: call on script OR another

2006-11-10 Thread Mumia W.
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' ||