Hi Ramon,
> It also gives internal server error. I am guessing that this part of the
> script is making the trouble, but I don't know what it could be.
> -
>
> Use CGI qw(:standard);
--^
This should be use not Use
Changing this and running on my server gives:
Thank You for your submission
re
hi,all!
today,i have write such a program
#!usr/local/bin/perl5.6.1
#middle machine version 1.0
use IO::Socket;
$SIG{CHLD} = sub {wait()};
$main_sock = new IO::Socket::INET(LocalHost =>'192.168.1.2',
LocalPort => 34561,
Listen=> 5,
Pro
On Sat, 2 Nov 2002 16:00:44 -0600, [EMAIL PROTECTED] (John Pitchko)
wrote:
>Hi all.
>
>I've been racking my brains out trying to get Perl to write binary files for me. Here
>is my situation. For my
>
>I was thinking that I would record the output from Data::Dumper into a scalar and
>write this
Hi All,
How can i get the hash reference when i use a function to sort that hash.
e.g. i want to sort the hash according to is values
I can do something like this
sort {$hash{$a} cmp $hash{$b}} (keys %hash);
but i want to sort it by using a call to a function , something like this
foreach my $item
On Saturday 02 November 2002 18:01, you wrote:
| On Sat, Nov 02, 2002 at 04:00:44PM -0600, John Pitchko wrote:
| > I've been racking my brains out trying to get Perl to write binary
| > files for me. Here is my situation. For my Operating Systems class, we
| > are designing a file system. One of th
Ok so then how do I make my data binary? Use pack() and unpack() ?
Thanks.
--
John Pitchko
3rd Year Computer Science - University of Regina
Systems Trainee - Data Services - SGI
All e-mails and attachments are certified virus
Hi to all,
I've just learnt ( ... anyway, I'm trying to do it) to select a
string when it is not preceded (or followed) by another string.
My aim is to know the mean of text lines in each newsgroup post, so I
wrote:
#!/usr/bin/perl -w
$nome_del_file = q/text.txt/;
open(INPUT, $nome_del_fil
From: [EMAIL PROTECTED]
> I am trying to update the Registry using a script from
> David Roth's book Win32 Perl Programming. The script
> appears to run, no errors, however the Key does not get
> added to the registry.
>
> Any help is appreciated.
>
> Thanks
You want to test for errors and p
Paul Company <[EMAIL PROTECTED]> writes:
> I'm looking for the following programs written in portable Perl.
> What I mean by "portable" is the script doesn't
> contain system() or backticks (``).
>
> vi written in perl
Try
http://www.perlmonks.org/index.pl?node_id=41736
--
To unsub
Roiy Zysman wrote:
>
> Hi All,
Hello,
> How can i get the hash reference when i use a function to sort that hash.
> e.g. i want to sort the hash according to is values
> I can do something like this
> sort {$hash{$a} cmp $hash{$b}} (keys %hash);
> but i want to sort it by using a call to a funct
Adriano Allora wrote:
>
> Hi to all,
Hello,
> I've just learnt ( ... anyway, I'm trying to do it) to select a
> string when it is not preceded (or followed) by another string.
Perhaps you should read up on the positive/negative
look-ahead/look-behind assertions in the perlre document.
perldo
Hi,
I'm trying to figure out how I can change the filenames in a directory, from
having an initial capital letter, to all lowercase. The files came from
a Windows system, which doesn't really care about case. My BSD box, however,
does !
I've tried fiddling around with tr and lc, but I don't know
Hi all,
I want to input a string which is used to create file name, and I want to
allow input string to consist of letters(SDK) at the start and only IR and
DEV inbetween, and numbers(0-9) and
underscore( _ ) within file name.
Is the pattern right.
m/^SDK[0-9]|^SDK_[0-9]|^SDK_[0-9]_IR|^SDK_[0-9
Hi all,
i am reading certain label names from textfile stored in a particular
machine.
I am working on WIN2k.
For eg here i have kept it in machine blrk35ed.
This becomes hard coded, is there any other way to read label names,
because i dont' want to hard coded in my script.
open(FILE,"
On Nov 4, Javeed SAR said:
>For eg here i have kept it in machine blrk35ed.
>This becomes hard coded, is there any other way to read label names,
>because i dont' want to hard coded in my script.
Take it as an argument to your application:
#!/usr/bin/perl -w
use strict;
my $machine = s
15 matches
Mail list logo
