Hi, I have a perl tk (in Windows9X) application which contains 2 windows.
What I would like to do is when i click the cross(to destroy the window) of the
first window to destroy also the another window.
Thanks.
I tried this:
MainLoop;
$_Globals{POPUP_WINDOW}->destroy;
$_Globals{TOP_
Nicola,
there is another loop. The whole construction looks like this:
for(@file1) {
$_ =~ s/[\r]|[\n]//;#remove CR and DOS CR
$_ =~ s/\"//g; #remove quotes
next if ($_ =~ /;;;|DATUM|GESAMT|ANZAHL/);
@raw=split /;/,$_;
if ( $raw[3]
Hi,
Win 2k with MSIE web browser
Whether or not my web browser is already been launched/opened
Can a Perl script do that task? Or a perl module?
Able to do without bringing up a command prompt as part of the process?
I was wonder if a script or module already exist.
Or, what would such writ
On Wed, 30 Jan 2002, John W. Krahn wrote:
> Roger Morris wrote:
> >
> > At 04:38 PM 1/30/2002 -0500, you wrote:
> > >
>
> And of course so will the perl function time().
I'm more used to bash and bash scripts. I was going to look up the
function in perl, honest I was.
--
To unsubscribe, e
The following should work say if you want to change the area code from 406
to 302
s/\b406(\d{7})\b/302$1/g
Basically, it looks for a 10 digit number beginning with 406, captures the
last 7 digits, and replaces it with 302 and the same captured 7 digits.
I've treated it is separated by a
The following should work say if you want to change the area code from 406
to 302
s/\b406(\d{7})\b/302$1/g
Basically, it looks for a 10 digit number beginning with 406, captures the
last 7 digits, and replaces it with 302 and the same captured 7 digits.
I've treated it is separated by a
Fiddling about with sockets, having some problems with send and recv.
Connecting successfully to an SMTP server, the following lines have odd
results:
$len=200;
recv SOCK, $foo, $len, 0;
print $foo;
send SOCK, "MAIL From:[EMAIL PROTECTED]\n", 0;
recv SOCK, $foo, $len, 0;
print $foo;
SOCK is conn
Actually, I think you just need to leave off
the /g switch if your script is doing that.
This should work:
$phonenumber = 4062324064;
$phonenumber =~ s/406/302/; #no /g
switch
print $phonenumber;
An even better idea, though, is to specify
that the pattern has to come at the beginning
On Jan 30, John W. Krahn said:
>Roger Morris wrote:
>>
>> At 04:38 PM 1/30/2002 -0500, you wrote:
>> >
>> >Could someone please help out with the problem of dynamically changing the
>> >name of an output file? I would like to concatenate the date to the name
>> >of the output file so that each
Roger Morris wrote:
>
> At 04:38 PM 1/30/2002 -0500, you wrote:
> >
> >Could someone please help out with the problem of dynamically changing the
> >name of an output file? I would like to concatenate the date to the name
> >of the output file so that each time I run my script, the name of the
>
What regular expression might I use to replace area codes in a
telephone #(or just the first 3 digits of a number. I can't use just a simple
search and replace. For example: 4062324064 The new # would change to
ex:302233024.
I of course only want the area code or the first 3 digits to
be s
ppm should use the standard http port 80, so whatever works on your web
browser should work for ppm.
-Original Message-
From: McCormick, Rob E [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 4:43 PM
To: perl beginners (E-mail)
Subject: ppm, firewall, and a ?
gang,
Tried u
gang,
Tried using ppm:
# PPM> install --location=http://www.roth.net/perl/packages Win32-AdminMisc
Install package 'Win32-AdminMisc?' (y/N): y
Installing package 'Win32-AdminMisc'...
Error installing package 'Win32-AdminMisc': Could not locate a PPD file for
package Win32-AdminMisc
OK, checked
On Jan 30, Catherine L Harris said:
>One of the most common needs in data analysis is to "abut" two files. This
>means to create a single file by horizontally pasting two files together.
If you have Perl, the following program does the job:
#!/usr/bin/perl -w
die "usage: $0 file1 file2 >
Yes. You should be able to accomplish the task. You should be able to take
data either side by side or reading into an array and putting back out as x by y rows
with minimum amount of work.
Wags ;) ps I looking for more than confirmation (code?), please let the list know.
-Origina
At 06:18 PM 1/30/2002 -0500, you wrote:
>One of the most common needs in data analysis is to "abut" two files. This
>means to create a single file by horizontally pasting two files together.
>
>So: starting with two files each with, say, 4 columns and 4 rows, the result
>is one file with 8 column
Here is a starting place:
#!perl -w
my ($day, $mon, $year) = (localtime(time))[3..5]; # pull day, mon, year
$year %= 100; # I trim to 2 digits, but
could add 1900 for 4
# digit
At 04:38 PM 1/30/2002 -0500, you wrote:
>Hi,
>
>Could someone please help out with the problem of dynamically changing the
>name of an output file? I would like to concatenate the date to the name
>of the output file so that each time I run my script, the name of the
>output file is different.
One of the most common needs in data analysis is to "abut" two files. This
means to create a single file by horizontally pasting two files together.
So: starting with two files each with, say, 4 columns and 4 rows, the result
is one file with 8 columns and 4 rows.
For a couple decades now I've
Hi,
Could someone please help out with the problem of dynamically changing the
name of an output file? I would like to concatenate the date to the name of
the output file so that each time I run my script, the name of the output
file is different...Any help would be greatly appreciated.
Than
--- John <[EMAIL PROTECTED]> wrote:
> Sorry, I posted this with the wrong subject and don't want it go
> get lost.
>
> If I use CGI, then reference $cgi->param( "some_variable" ), and
> some_variable is passed both as a hidden form field and as a URL
> parameter, will one reliably override the
From: "Chi Lin" <[EMAIL PROTECTED]>
> Can you reference DLLs within your Perl scripts?
>
> I'd like to pass an array of data to a DLL for verification. The DLL
> will return whether the data is valid.
You want to use either Win32::API or FFI (I believe both may be
installed v
If I use CGI, then reference $cgi->param( "some_variable" ), and
some_variable is passed both as a hidden form field and as a URL
parameter, will one reliably override the other?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Sorry, I posted this with the wrong subject and don't want it go
get lost.
If I use CGI, then reference $cgi->param( "some_variable" ), and
some_variable is passed both as a hidden form field and as a URL
parameter, will one reliably override the other?
--
To unsubscribe, e-mail: [EM
On Jan 30, Nikola Janceski said:
>What's the difference between the following:
>
>! and not
>|| and or
>&& and and
Precedence. See 'perlop'. Basically:
$x = 10 and 20;
sets $x to 10 (and warns that '20' is a useless use of a constant in void
context), whereas:
$x = 10 && 20;
sets $x to
You need it to return a true value to indicate it successfully loaded.
Simpliest way is to have a 1; at the end of the file outside of any subs.
If your library required to initialize something, then perhaps you wouldn't
return a 1 if that initialization failed.
-mike
-Original Message-
I am trying to create my own library. I figured it should have an extension
of .pm and must be within the $PATH, where perl searches for
libraries.
The following error is displayed:
mylib.pm did not return a true value at program_name, line 2.
line 2 is just "use mylib"
What is the recommended
hello all, i'm having some issues with subroutines being ran on a forked
process. the subroutines have print statements which i would like to have
printed to stdout in a format similar to:
"\nthis is my message\n\n"
however, the print format is not as controlled as it is when i do not
fork. s
Can you reference DLLs within your Perl scripts?
I'd like to pass an array of data to a DLL for verification. The DLL will
return whether the data is valid.
Any ideas?
- Chi
_
MSN Photos is the easiest way to share and print your
What's the difference between the following:
! and not
|| and or
&& and and
Nikola Janceski
We should take care not to make the intellect our god; it has, of course,
powerful muscles, but no personality.
-- Albert Einstein (1879-1955)
On Wed, Jan 30, 2002 at 07:37:55PM +, Jonathan E. Paton wrote:
> You need to look into the configuration then, since my
> logfile
> is punctuated with timestamps in the following way:
>
> [Fri Jan 4 12:15:54 2002] [error] [client 192.168.100.1]
> File does not exist:
> /usr/local/httpd/htdoc
Greetings All,
First time poster to this list, so be kind please... ;-)
Is it possible to access Disam96 files from within Perl (via a Perl
module perhaps)? If so, how do I do this? I've searched CPAN already,
along with perl.org (or course!). So far, I haven't found anything.
On Jan 30, ERIC Lawson - x52010 said:
>Why don't the match operators and regexps in the following produce the
>same results?
>
> if ($editbl =~ /^\S+$/) { print AFILE "$editbl\n"; }
> if ($editbl !~ /^\s*$/) { print EFILE "$editbl\n"; }
Your logic is off. The first regex says:
"If
> -Original Message-
> From: ERIC Lawson - x52010 [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 30, 2002 4:55 PM
> To: [EMAIL PROTECTED]
> Subject: match + regexp synonyms?
>
>
> Why don't the match operators and regexps in the following produce the
> same results?
>
> if
Arrgh...I am sorry for not being clear. The script is running under the
context of my username. I know that I do not have permissions on certain
directories. However, I would like to know how to detect it in Perl.
perl -e "print(-d 'z:/xxx');" prints a 1, even though z:/xxx directory
cannot be ac
On Wed, 30 Jan 2002 21:47:15 -, Angus Laycock wrote:
> --=_NextPart_000_01D4_01C1A9D7.AEC826A0
> Content-Type: text/plain;
> charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable
>
> Hi,
>
> I wrote this today on UNIX . When I tested the script, calling it with
> all
Cool. I think I have an idea - what is your question?
tim
-Original Message-
From: Anand, Pankaj [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 2:18 PM
To: 'Beginners (E-mail)
Subject: change the format of file.
Hi ,
I want to make a perl script which can take the input fr
Why don't the match operators and regexps in the following produce the
same results?
if ($editbl =~ /^\S+$/) { print AFILE "$editbl\n"; }
if ($editbl !~ /^\s*$/) { print EFILE "$editbl\n"; }
TIA
--
James Eric Lawson
Research Publications Editor
National Simulation Resource
[E
I was using server loosely. The machine it is running from has to be
logged on as something, right, (like our servers would have a logon
similar to "productionMachine" or whatever). The first step I would
take is to check this, it shouldn't require a work around.
-Original Message-
F
The script is not intended to run on an internet(server) environment. It is
supposed to run as a stand-alone script from one of the machines (trusted)
in the domain. All that I was hoping for, is a way to check whether I am
able to read a directory and if so calculate the sizes of the directories
Hi,
I wrote this today on UNIX . When I tested the script, calling it with all the options
(f s D P U S e q ) the "-s" option would not return the value from the command line.
All the other variables got populated. I then change the "s:s" to "f:s" and that
worked. I am trying to replace some s
I do not see that problem as long as 'I' (read user) have permission. You
can always use the CACLS Windows system command to change permissions, but
there is usually a good reason not to. Is the perl script running on a
server? Does the server have permission to be in the folder?
-Original
There are very many ways to do this in perl. Go to CPAN.org or perldoc and
search under LWP, Treebuilder, HTML, etc. for overwhelming information.
Documentation for these is pretty straightforward.
-Original Message-
From: rory oconnor [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January
try ...
if ( ! $size ) { $size = 8 }
printf " %${size}s ", $yourVariableHere;
?frank
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 4:21 PM
To: '[EMAIL PROTECTED]'
Subject: printf using a variable for the field size
I am trying
I don't think the -r -x -w or any of those will work for NTFS (they don't
set permissions like that).
To capture the error (probably STDERR) use:
open(OLDERR, ">&STDERR") or die $!; # backup filehandle
open(STDERR, ">standard_errors") or die $!; # errors go here now
## do your stuff here
open(
On Jan 30, Nikola Janceski said:
>printf " %8s ", $_; ## works because I put the 8 in the code
>
>but what if the variable $size has the size, how then do I use printf using
>$size in place of the 8?
Two ways come to mind:
printf " %${size}s ", $_;
and
printf " %*s ", $size, $_;
--
Jeff
I'm not sure if perl's the right weapon for this, but I bet it is. I
need to save the source of a webpage to a file. Can anyone think of a
good way to do that?
I'm using my commerce application to create a webpage using a template
and query string parameter data...and the final rendered page is
I am trying to make a 'pretty' text table printout.
I have variable that holds the size of the width of the column, so how do I
make it print the string the way I want it.
printf " %8s ", $_; ## works because I put the 8 in the code
but what if the variable $size has the size, how then do I use
does anyone have an idea/script to stop and
application like performace monitor.. rename the log
file and start the application.. Perfmon does not run
as a service..it runs as a process
__
Do You Yahoo!?
Great stuff seeking new owners in Yahoo! Auct
I am trying to use File::Find module on Win NT 4.0 with Activestate Perl to
find the directory sizes on a network share drive. If the individual
directories are protected by Windows NTFS permissions, the File::Find module
throws a warning message on STDOUT saying "Can't opendir(Z:/blahblah):
Inval
At 11:30 AM 01/30/02, Jason Purdy wrote:
>You may also be interested in checking out the RaiseError attribute of any
>DBI handle...
>
>$dsn = 'DBI:mysql:dbname'; # not sure what this looks like for InterBase
>$dbh = DBI->connect( $dsn, 'username', 'password' );
>$dbh->{RaiseError} = 1;
Thank
Hi,
Try this (modifing up as you please):
open (INPUT, "input.txt" ) or die "Can't open: $!";
open (OUTPUT, "output.txt") or die "Can't open: $!";
my %data;
my $state = 0;
while () {
chomp;
$data{$state++} = $_ if $state == 0;
$data{$state++} = $_ if $state == 1;
$data{$state+
From: "Michael Eggleton" <[EMAIL PROTECTED]>
> I have a program that I want to write, but need a very small, say
> command line style or flat file style database that runs on Win32 and
> Unix. Does anyone out there have any idea what I could use here. I
> was thinking Berkele
From: "Rambog" <[EMAIL PROTECTED]>
> Upon trying to install Win32 SystemInfo 0.06, I receive the following
> error upon executing nmake (the second step of the install):
>
> NMAKE: fatal error U1073: don't know how to make 'C:\Program'
> Stop.
>
> How do I get around this to s
From: "Agustin Rivera" <[EMAIL PROTECTED]>
> Ah...pipes. I know this has been asked a hundred times, too, but the
> word comes up so much it's hard to make a search on.
>
> I have a telnet program that is capable of letting other programs
> utilize it's STDIN and STDOUT. So, h
At 03:15 PM 1/30/2002, you wrote:
Always check the return value of system calls to make sure they have
succeeded. I think your output file isn't getting opened.
>open(OUT, ">docs.out");
should be something like,
open OUT, "> docs.out" or die "Can't open output file: $!\n";
This way, if the
Here is a display portion of what you want to do:
#!perl -w
while ( ) {
chomp;
printf "definition1 %s\ndefinition2\ndefinition3\ndefinition4:%s\n", $_, $_;
}
__DATA__
name1
name2
^-- Script ends here
Output:
definition1 name1
definition2
definition3
definition4:
Hi ,
I want to make a perl script which can take the input from a file which is
in this form -
name1
name2
I want to change it to this format -
definition1 name1
definition2
definition3
definition4:name1
definition1 name2
definition2
definition3
definition4:name1
and so
try using
find( \&wanted, "D:/");
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 3:03 PM
To: [EMAIL PROTECTED]
Subject: Re: File::Find and Platform Capability
I am having difficulty opening a directory and recursively listing the
I do not have a good grasp of File::Find, but I found a way that works and
just go with it...
find(sub {push @files, $File::Find::name if -f}, '.'); #grabs all
files
find(sub {/$ord/i && push @files, $File::Find::name if -f}, '.');
#grabs files whose name matches $ord
Files a
> I have a variable in my script that is taking on a value
> from a hash:
>
>my $myvar = $hashname{$key}{$subkey}{in};
>
> Where $hashname{$key}{$subkey}{in} may have never been
> assigned a value. I later try to use $myvar (I use
> strict and warnings), and get an error "Use of
> uninitializ
I am having difficulty opening a directory and recursively listing the files
on NT Win32
I can do it on Unix but when I try it on NT with both UNC and drive letter I
get nothing...
Unix
###
!/util/perl5.static -w
use File::Find;
open(OUT, ">docs.out");
sub wanted
{
Debbie McNerney wrote:
>
> Please accept my apologies for being so dumb. I am a beginner and really
> have done basic perl scripting by using the "copy and paste and modify"
> method of script writing.
>
> I have a server running Solaris 8. From what I can determine, perl is
> version 4 on it
I have a variable in my script that is taking on a value from a hash:
my $myvar = $hashname{$key}{$subkey}{in};
Where $hashname{$key}{$subkey}{in} may have never been assigned a value. I
later try to use $myvar (I use strict and warnings), and get an error "Use
of uninitialized value in ..."
| > Surely you have the script name and timestamp next to
that?
| >
|
| Nope, that's the entire message.
|
Shame, you have some details but nothing leading to the
problem
without knowing which script... of many.
| > If not, upgrade your httpd to something this side of
1900.
| > ;)
|
| The http
At 11:15 AM 1/30/02 -0800, Christopher Solomon wrote:
>I'm not well versed on the versions of Perl, but I don't think that was
>a particularly bug-free version. I would recommend upgrading to at
>least 5.005_03
Actually 5.004_04 was quite stable. 'exists' was not extended to apply to
arrays u
You may also be interested in checking out the RaiseError attribute of any
DBI handle...
$dsn = 'DBI:mysql:dbname'; # not sure what this looks like for InterBase
$dbh = DBI->connect( $dsn, 'username', 'password' );
$dbh->{RaiseError} = 1;
Jason
If memory serves me right, on Wednesday 30 J
I'm not well versed on the versions of Perl, but I don't think that was
a particularly bug-free version. I would recommend upgrading to at
least 5.005_03
Chris
On Wed, 30 Jan 2002, Nikola Janceski wrote:
> I have two versions of perl (5.004_04, and 5.6.1)
>
> it seems the older one doesn't l
I have two versions of perl (5.004_04, and 5.6.1)
it seems the older one doesn't like the following code:
sub somefunction {
if(exists $_[0]){
print "$_[0]\n";
}
}
Output of perl -c (of 5.004_4):
exists operator argument is not a HASH element at .
> Does anyone know how I can trap this error? It's in my
> "/var/log/httpd/error_log" file once in a while.
>
> DBD::InterBase::st execute failed: Overflow occurred
> during data type
> conversion.
> -conversion error from string ""
> DBD::InterBase::st fetchrow failed: Unknown cursor
> -Dynam
> Please accept my apologies for being so dumb.
Not required.
> I am a beginner and really have done basic perl
> scripting by using the "copy and paste and modify"
> method of script writing.
Beginners learn by whatever means pleases them.
Examining other people's code is quite a good method
Does anyone know how I can trap this error? It's in my
"/var/log/httpd/error_log" file once in a while.
DBD::InterBase::st execute failed: Overflow occurred during data type
conversion.
-conversion error from string ""
DBD::InterBase::st fetchrow failed: Unknown cursor
-Dynamic SQL Error
-SQL
On Wed, Jan 30, 2002 at 09:37:28AM -0800, John W. Krahn wrote:
> Stefan Kredler wrote:
> > ---8<
> > if ( $raw[3] eq ""){
> > while ( ($key, $value) = each %table ) {
> > if ($raw[2] =~ /$key/) {
> > $raw[3] = $value ;
> > last;
> > }
> > }
>
It seems to look fine. The only thing you might do(some would say you need to
do) is use -w as part of the #! line and add 'use strict' to see what this kicks out.
Wags ;)
-Original Message-
From: Debbie McNerney [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 10:14
> Upon trying to install Win32 SystemInfo 0.06, I receive the
> following error
> upon executing nmake (the second step of the install):
>
> NMAKE: fatal error U1073: don't know how to make 'C:\Program'
> Stop.
I think you will find the is breaking on the directory specification:
C:\Program Files\
Ned,
Win32::GUI allows you to display windows in Windows. See:
http://search.cpan.org/search?dist=Win32-GUI
Or Jenda's site at:
http://jenda.krynicky.cz/#Win32::GUI
There is also a Win32-GUI-Samples (on Jenda's site) which contains,
you-guessed-it, samples on how to use the module.
The docs
Please accept my apologies for being so dumb. I am a beginner and really
have done basic perl scripting by using the "copy and paste and modify"
method of script writing.
I have a server running Solaris 8. From what I can determine, perl is
version 4 on it (perl -v). Server came preinstalled with
I have installed the AppConfig In an attempt to try and write my own config files
I have got this far:
#!/usr/bin/perl -w
use AppConfig qw/:argcount/;
#use strict;
use Data::Dumper;
$| = 1;
my $config = AppConfig->new();
$config->define(
'VER' => { ARGCOUNT => ARGCOUNT_L
From: Scott Lutz <[EMAIL PROTECTED]>
> Here is the story:
> "@array" with unknown number of elements, that I want to cycle through
> while assigning variables to each value in the loop like this:
>
> __snip__
>
> foreach my $domain ( @DOMAINS_ORDERED ){
> (my $DOM_NAME
On Wed, Jan 30, 2002 at 05:48:14PM +0100, [EMAIL PROTECTED] wrote:
> Hi all,
>
> thanks to all in the group who really never stop helping.
> This group is really enjoyable. [This had to be said]
>
> Now.
> I'm running a while loop with a hash several times and I want to use the last
>statement
HI,
I need to display a message to a NT screen. The PERL script will need to
run from a shortcut that is set to run a bat file minimized, and in the bat
file the PERL script is run. I have Win32:Console loaded but do not have TK
or Message or Msgbox.
Is there any code or a script available to
Stefan Kredler wrote:
>
> I'm running a while loop with a hash several times and I
> want to use the last statement to exit the loop on a match.
> works fine.
>
> Entering the next time the while loop is exited w/o finding
> the right match. It seems the last state on exiting is still
> preserve
Sorry, for the Italian, but for an error i send here mail mail insted of
perl-it !
I'm tryied to use send(SO,"GET / HTTP/1.0\r\n\r\n",0) and it work.
Thanks
Walter
Bob Showalter wrote:
>>-Original Message-
>>From: walter valenti [mailto:[EMAIL PROTECTED]]
>>Sent: Wednesd
Ah...pipes. I know this has been asked a hundred times, too, but the word
comes up so much it's hard to make a search on.
I have a telnet program that is capable of letting other programs utilize
it's STDIN and STDOUT. So, how do I open the program and pipe the data into
and to a Perl script?
From: Rupert Heesom <[EMAIL PROTECTED]>
> I don't know much about perl & databases, but according to a book I
> have on Perl, the DBD::ADO driver might be what you need for MS
> Access.
I admit I did not measure that, but I'd bet DBD::ODBC would be
quicker.
Jenda
===
From: Adriano Rodrigues Ferreira <[EMAIL PROTECTED]>
> When using FileHandles as the object-oriented wrapper for file
> handles, are there predefined handles which can be used to get the
> standard input, standard or standard error files?
>
> If they are not predefined, how I c
Hi all,
thanks to all in the group who really never stop helping.
This group is really enjoyable. [This had to be said]
Now.
I'm running a while loop with a hash several times and I want to use the last
statement to exit the loop on a match.
works fine.
Entering the next time the while loop is
Re: split to hash.
send digitally signed messages like that -- they're annoying.
---
Matthew Lyon
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> -Original Message-
> From: walter valenti [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 30, 2002 11:11 AM
> To: [EMAIL PROTECTED]
> Subject: socket
>
>
> Hola,
>
> qualcuno sa dirmi perchè:
(Using translator.dictionary.com, I see that the question is why the first
example "
I'm sure I'll get some crap for this old snippy-quick coding, but
here is an example, if you are interested in HTTP 200, etc. codes
(this is cut and paste from a function, so no header, etc.), or for
more flexibility. I never got https to work, I think the firewall
is closed to 443.
use
From: Francis Henry <[EMAIL PROTECTED]>
> I am running ActiveState Perl version 5.6.0 on Windows NT 4.0 box (I
> know, I know, but they didn't ask my opinion). What I'd like to do is
> send the MIME file I've created with:
The usual ways to send an attachment are to use either
Hola,
qualcuno sa dirmi perchè:
#!/usr/bin/perl
use IO::Socket;
#use diagnostics;
my $host=$ARGV[0];
if(!$host){
die"...host???\n";
}
$|=1;
$socket=IO::Socket::INET->new(PeerAddr =>$host, PeerPort=>80,
Proto=>"TCP") || die"$!\n";
print $socket "GET / HTTP/1.0\r\n\r\n";
while(<$socket>){
From: "mb" <[EMAIL PROTECTED]>
> Is there a way to call a cgi script from another one(diff using html
> header and forms). So that this script get params and return values
> ... a kind of sub.
Depends.
1) If it's on the same server as your CGI and expects to be used that way
yep, you listed them in your subject line :-)
> -Original Message-
> From: Adriano Rodrigues Ferreira [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 30, 2002 10:37 AM
> To: [EMAIL PROTECTED]
> Subject: Standard FileHandles for STDIN, STDOUT, STDERR
>
>
>
> When using FileHandles
Dhiraj P Nilange wrote:
>
> Hi there
Hello,
> I want to extract some word after space from some string.
> Somebody from the mailing list had given me above
> command.
>
> suppose I wanto extract 8th word...
Perl arrays are indexed starting at zero (0) so the eighth word in an
array would be i
I am using the FTP module. I was wondering if I could replace a dirctory
with a wild card instead of a just a file.
;)
Mike
"Matt C." <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> use the Net::FTP module, which will accomplish your task in the blink of
an
>
> When using FileHandles as the object-oriented wrapper for
> file handles, are there predefined handles which can be
> used to get the standard input, standard or standard
> error files?
>
You mean like STDIN, STDOUT and STDERR filehandles? I
can't see many good reasons for wrapping these.
Upon trying to install Win32 SystemInfo 0.06, I receive the following error
upon executing nmake (the second step of the install):
NMAKE: fatal error U1073: don't know how to make 'C:\Program'
Stop.
How do I get around this to successfully install the package?
--
To unsubscribe, e-mail: [EMA
> I want to extract some word after space from some string.
> Somebody from the mailing list had given me above
> command.
> [snip]
> but it doesnt work. If I use some array in the split
> function like:-
>
> @array=split(/\s+/,$abc);
> print $array[8];
>
> this way it works. But I dont want t
Actually it was "[split /\s+/]->[8]" not "split[/\s+/]->[8]", and you only
need to do it like that if you are using it in a "print" statement (I
couldn't get it to work otherwise). Otherwise you can use the method Nikola
explained or using the method you use below (the one that works).
Rob
--
1 - 100 of 135 matches
Mail list logo