Hi
I am running the following script on EBCDIC
use Encode;
$string = "a";
$enc_string = encode("iso-8859-16", $string);
print "\n String: $string\n";
print "\n enc_string: $enc_string\n";
The output:
String: a
enc_string: ñ (This is the character for codepoint \xF1 on iso-8859-16)
What is th
On Aug 4, 2005, at 2:47, Chris Devers wrote:
You can run CGI scripts on your local computer IF you have a web
server,
but that's not necessarily a problem. Most versions of Unix will
already
include some version of the Apache web server, and there are many
groups
offering pre-packaged versi
Hi
I am trying to run this script on an EBCDIC platform using perl-5.8.6
($a = "\x89\x8a\x8b\x8c\x8d\x8f\x90\x91") =~ tr/\x89-\x91/X/;
is($a, "");
The result I get is
'X«»ðý±°X'
a) Is this happening since \x8a\x8b\x8c\x8d\x8f\x90 are the gapped
characters in EBCDIC ?
or
b) Should
Thanks very much Chris for the clear explanation. Sounds like just what
I need - A way to completely build and check out a web site on my own
compter and then be able to migrate it to a hosting service when I'm
ready. Sure beats the local editing and back and forth trips from my
computer to the
On Wed, 3 Aug 2005, Tony Frasketi wrote:
> I would appreciate it if you would steer me to one or more of those
> groups you mentioned that offer pre-packaged version of Apache with
> Perl, MySQL and PHP for windows
A quick Google search turns up several:
http://www.google.com/search?q=win
Hello
I would appreciate it if you would steer me to one or more of those
groups you mentioned that offer pre-packaged version of Apache with
Perl, MySQL and PHP for windows Can these packages run on the same
machine that I have windows running? Do I access these packages from
Windows
On Wed, 3 Aug 2005, Sonia wrote:
> I want to run PERL script which will combine several JAVA applications.
This is possible.
> Furthermore, I need this script to run in the HTML page.
This is not possible.
HTML is just a "markup language". It tells an application such as a web
browser how to
prakash m wrote:
> I have written a small code which will just try to split a string
> based on the Key. -
> $val="sample1a+2.8sample2a+2.8sample3a";
> print "String=$val\n";
> print "split Key: 2.8\n";
> @arr=split(/2.8/,$val);
> foreach $i (@arr)
> {
> print "**Split value: $i\n
prakash m wrote:
> I have written a small code which will just try to split a string based on
> the Key.
> -
> $val="sample1a+2.8sample2a+2.8sample3a";
> print "String=$val\n";
> print "split Key: 2.8\n";
> @arr=split(/2.8/,$val);
> foreach $i (@arr)
> {
> print "**Split value: $
I have written a small code which will just try to split a string based on the
Key.
-
$val="sample1a+2.8sample2a+2.8sample3a";
print "String=$val\n";
print "split Key: 2.8\n";
@arr=split(/2.8/,$val);
foreach $i (@arr)
{
print "**Split value: $i\n";
}
print "**\n";
Hi,
I want to run PERL script which will combine several JAVA applications.
Furthermore, I need this script to run in the HTML page.
Is that possible? Can I run this locally on my machine, without a server?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
Hi All~
my program below is not returning any errors but nothing is happening to the
.txt files like I hoped. Can someone pls take a look and let me know what
I'm doing wrong.
- Thank you!
# If there is a .pdf file and a matching .txt file, open the .txt file and s
% http://.* %
Brent Clark wrote:
Brent Clark wrote:
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
my $roomName = $ref_hash->{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
Prasad J Pandit wrote:
> Hello friends !
Hello,
> Does any one know how to set user-id in perl script? I
> mean counter-part of setuid() in perl ??
You mean that you don't want to use POSIX::setuid()? You might want to
lookup the $< and $> variables in:
perldoc perlvar
John
--
use Perl;
p
>
> Let's try this again :) You were most of the way there the first time,
> and the shell script thing I suggested is unnecessary.
>
> system("command >/dev/null &"); # works for me
>
> Specifically:
>
> sleep.pl:
> #!/usr/bin/perl
> $|++;
> print STDERR time." start of sleep\n";
> sleep(5);
>
On 8/3/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
> marcos rebelo wrote:
> > I need to redefine localy one subroutine and have it correctlly after.
> > How do I do it?
>
> $ perl -e'
> my $myPrint = sub { print "Teste 1\n" };
>
> sub test { $myPrint = sub { print "Teste 2\n" } }
>
> $myPrint->
Jay Savage
<[EMAIL PROTECTED]
l.com>
On 8/2/05, Ram <[EMAIL PROTECTED]> wrote:
> I have a situation where a CGI script has to start an independent perl
> script and exit without capturing the output or waiting for the exit code.
> It doesnt make any practicle sense to me as this perl script takes good 6
> hours to run and my CGI scrip
Hello friends !
Does any one know how to set user-id in perl script? I
mean counter-part of setuid() in perl ??
Regards
-Prasad
PS: Please don't send me html/attachment/Fwd mails
Start your day with Yahoo! - make it yo
marcos rebelo wrote:
> I need to redefine localy one subroutine and have it correctlly after.
> Who do I do it?
>
> sub myPrint () {
> print "Teste 1\n";
> }
>
> sub test {
> no strict "refs";
> no warnings;
>
> my $str = "::myPrint";
>
> #my $backup = $main::{myPrint};
Hi Monks,
I'm currently involved in migrating a huge chunk of code (>45,000 LOC)
from 'perl/5.6.0a' to 'perl/5.8.5'. A significant part of this code is
made up of calls to 'Tk' widgets / GUIs.
The issue is the following:
This code, which used to work without any problems with 'perl/5.6.0a',
has
sub myPrint () {
print "Teste 1\n";
}
sub test() {
no strict "refs";
no warnings;
my $subName = "::myPrint";
my $backup = \&myPrint;
*$subName = sub() {
print "Teste 2\n";
};
myPrint;
*$subName = $backup;
}
myPrint;
test;
myPrint;
On
How many of the following do I have to do:
untaint the $key after it's pulled from the Apache Cookie.
untaint the $username/$password from the login form (DONE).
untaint the $username/$password from the Cache::FileCache object.
Because these variables are passed through a number of objects and
I need to redefine localy one subroutine and have it correctlly after.
Who do I do it?
sub myPrint () {
print "Teste 1\n";
}
sub test {
no strict "refs";
no warnings;
my $str = "::myPrint";
#my $backup = $main::{myPrint};
my $backup = *$str;
*$str = sub() {
Brent Clark am Mittwoch, 3. August 2005 10.43:
> Hi list
Hi
> I have my code as so:
>
> for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
> my $roomName = $ref_hash->{$fileName}{$roomCode};
> if( $pCode eq 'p110'){
> if ($p110rm01 eq $roomName ){
>
Brent Clark wrote:
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
my $roomName = $ref_hash->{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
my Data::Dumpe
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
my $roomName = $ref_hash->{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
my
27 matches
Mail list logo
