[26769] in Perl-Users-Digest
Perl-Users Digest, Issue: 8839 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 8 06:05:36 2006
Date: Sun, 8 Jan 2006 03:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 8 Jan 2006 Volume: 10 Number: 8839
Today's topics:
form fields <nospam@home.com>
My SAX Parser, regexp style. Cut & paste version .901 robic0
Re: revised comp.lang.perl.misc charter <tadmc@augustmail.com>
ssh in system call <klausboon@web.de>
Re: ssh in system call <sdn.girths00869@zoemail.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 08 Jan 2006 04:17:32 GMT
From: "Nospam" <nospam@home.com>
Subject: form fields
Message-Id: <wn0wf.2190$s65.1409@newsfe1-win.ntli.net>
Can someone have a look at this form:
http://www.warservers.com/f/posting~mode~newtopic~f~3.htm
It clearly has a username, subject and message fields
I am wondering what fields I would have to use with www::mechanize for it to
recognise
$mech->field('username' => "$username1")->url();
$mech->field('subject' => "$subject")->url();
$mech->field('message' => "$message")->url();
don't seem to work, I get the error msg:
Can't call method "value" on an undefined value at
C:/Perl/lib/WWW/Mechanize.pm
line 1052.
------------------------------
Date: Sat, 07 Jan 2006 17:31:46 -0800
From: robic0
Subject: My SAX Parser, regexp style. Cut & paste version .901
Message-Id: <heq0s15940k9rhvoujip884hmqtqsb0h0r@4ax.com>
Since so much was learned on the substitution method, thought
this might be a better approach.
This is just the starting framework. The rest will be filled in.
Turn off the debug output for full speed.
Un-wrap the regexp if it is, before using.
print <<EOM;
# -----------------------
# XML (Regex) SAX Parser
# Version .901 - 1/7/06
# Copyright 2005,2006
# by robic0-At-yahoo.com
# -----------------------
EOM
use strict;
use warnings;
open DATA, "config.html" or die "can't open config.html...";
my $gabage1 = join ('', <DATA>);
close DATA;
my ($cnt, $content, $show_pos, $debug) = (1, '', 1, 1);
# master
#/(?:<\?(.*?)\?>)|(?:<META(.*?)>)|(?:<!DOCTYPE(.*?)>)|(?:<!\[CDATA\[(.*?)\]\]>)|(?:<!--(.*?)-->)|(?:<(\/*[\:0-9a-zA-Z]+?[\s]*\/*)>)|(?:<([\:0-9a-zA-Z]+?)[\s]+((?:[\:0-9a-zA-Z]+[\s]*=[\s]*["'][^<]*['"])+[\s]*\/*)>)|(.+?)/sg)
# 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8
8 9 9
while ($gabage1 =~
/(?:<\?(.*?)\?>)|(?:<META(.*?)>)|(?:<!DOCTYPE(.*?)>)|(?:<!\[CDATA\[(.*?)\]\]>)|(?:<!--(.*?)-->)|(?:<(\/*[\:0-9a-zA-Z]+?[\s]*\/*)>)|(?:<([\:0-9a-zA-Z]+?)[\s]+((?:[\:0-9a-zA-Z]+[\s]*=[\s]*["'][^<]*['"])+[\s]*\/*)>)|(.+?)/sg)
# 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8
8 9 9
{
if (defined $9) { $content .= $9; next; }
print "-"x20,"\n" if ($debug);
if (length ($content)) {
print "9 $content\n" if ($debug);
$content = '';
}
if ($show_pos) {
my $rr = pos $gabage1;
print "$rr ";
}
print "1 VERSION: $1\n" if ($debug && defined $1);
print "2 META: $2\n" if ($debug && defined $2);
print "3 DOCTYPE: $3\n" if ($debug && defined $3);
print "4 CDATA: $4\n" if ($debug && defined $4);
print "3 COMMENT: $5\n" if ($debug && defined $5);
## <tag> or </tag> or <tag/>
print "6 TAG: $6\n" if ($debug && defined $6);
## <tag attrib/> or <tag attrib>
print "7,8 TAG: $7 Attr: $8\n" if ($debug && defined $7);
$cnt++;
}
__END__
------------------------------
Date: Sat, 7 Jan 2006 12:01:07 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: revised comp.lang.perl.misc charter
Message-Id: <slrnds00f3.i51.tadmc@magna.augustmail.com>
moderator@comp.lang.perl.misc <moderator@comp.lang.perl.misc> wrote:
> You won't weigh me stoping near your proud tower.
Thank you for doing what little you can to make this a better newsgroup.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 08 Jan 2006 02:13:05 +0100
From: Klaus Boon <klausboon@web.de>
Subject: ssh in system call
Message-Id: <dppovd$tpk$03$1@news.t-online.com>
Hi,
I used a shell script to automaticly start another
shell script in the background of some remote
hosts (everything is configured so that no password
is needed)
>ssh $host tasks.sh &
now I ported everything to perl
>system("ssh $host tasks.sh &");
and get problems. While running this line perl does
start my tasks.sh but also does a real login on the
specified $host's (what i dont want). Thus I have to
exit all the connections by hand. I also tried using
the ssh-params -f and -N together with or without
the & the results get even more weird.
Can anybody tell me how to write this system call
correctly?
TIA Klaus
------------------------------
Date: Sat, 07 Jan 2006 22:21:50 -0600
From: "Eric J. Roode" <sdn.girths00869@zoemail.net>
Subject: Re: ssh in system call
Message-Id: <Xns9744EE22E9017sdn.comcast@216.196.97.136>
Klaus Boon <klausboon@web.de> wrote in news:dppovd$tpk$03$1@news.t-
online.com:
> Can anybody tell me how to write this system call
> correctly?
It sounds like your problem has nothing to do with Perl.
Perhaps you could try in a unix or security newsgroup, where more people
are more likely to have useful information about ssh.
HTH,
--
Eric
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8839
***************************************
