[26110] in Perl-Users-Digest
Perl-Users Digest, Issue: 8307 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 9 15:27:04 2005
Date: Tue, 9 Aug 2005 12:26:58 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 9 Aug 2005 Volume: 10 Number: 8307
Today's topics:
ignore new line for long string <ngoc@yahoo.com>
Re: ignore new line for long string <steve@uptime.org.uk>
Re: ignore new line for long string (Anno Siegel)
Re: ignore new line for long string <Noname@hot.com>
Re: ignore new line for long string <bernard.el-haginDODGE_THIS@lido-tech.net>
Naive Unix Socket client <news@LearnQuick.com>
Re: Naive Unix Socket client (Anno Siegel)
Re: Naive Unix Socket client <news@LearnQuick.com>
Re: Naive Unix Socket client <news@LearnQuick.com>
NET::LDAP filter problem (ALS)
Re: NET::LDAP filter problem <josef.moellers@fujitsu-siemens.com>
Re: NET::LDAP filter problem (ALS)
Re: Numeric or character ? (David Combs)
Perl extracting info from MS Word doc <M.Elston@RemoveAdvantest-ardRemove.com>
Re: Perl extracting info from MS Word doc <ekkehard.horner@arcor.de>
Re: Perl extracting info from MS Word doc <M.Elston@RemoveAdvantest-ardRemove.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 08 Aug 2005 10:05:59 +0200
From: ngoc <ngoc@yahoo.com>
Subject: ignore new line for long string
Message-Id: <42f71264$1@news.broadpark.no>
Hi
I have a very long string. Code will be ugly (not easy to navigate for
reading) if I write it in a line.
I want to write it in many lines, but treat as one line long string. How
can I do it ?
I used \ to escape new line, but it did not help.
Thanks
ngoc
------------------------------
Date: Mon, 08 Aug 2005 09:12:17 +0000
From: Stephen Hildrey <steve@uptime.org.uk>
Subject: Re: ignore new line for long string
Message-Id: <1123488737.83114.0@doris.uk.clara.net>
ngoc wrote:
> Hi
> I have a very long string. Code will be ugly (not easy to navigate for
> reading) if I write it in a line.
> I want to write it in many lines, but treat as one line long string. How
> can I do it ?
code:
use strict;
use warnings;
(my $long = <<EOLONG) =~ tr/\n/ /;
This is a
really really really
long string
EOLONG
print $long, "\n";
===
output:
This is a really really really long string
Hope that helps,
Steve
------------------------------
Date: 8 Aug 2005 08:33:43 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: ignore new line for long string
Message-Id: <dd75d7$lpg$1@mamenchi.zrz.TU-Berlin.DE>
Stephen Hildrey <steve@uptime.org.uk> wrote in comp.lang.perl.misc:
> ngoc wrote:
> > Hi
> > I have a very long string. Code will be ugly (not easy to navigate for
> > reading) if I write it in a line.
> > I want to write it in many lines, but treat as one line long string. How
> > can I do it ?
>
> code:
>
> use strict;
> use warnings;
>
> (my $long = <<EOLONG) =~ tr/\n/ /;
> This is a
> really really really
> long string
> EOLONG
>
> print $long, "\n";
>
> ===
>
> output:
>
> This is a really really really long string
What if the string is supposed to contain newlines?
my $long = 'This is a' .
' really really really' .
' long string';
print "$long\n";
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Tue, 09 Aug 2005 11:14:33 GMT
From: "Noname" <Noname@hot.com>
Subject: Re: ignore new line for long string
Message-Id: <xn0e5skbn1lhla9001@news.europe.nokia.com>
Anno Siegel wrote:
> Stephen Hildrey <steve@uptime.org.uk> wrote in comp.lang.perl.misc:
> > ngoc wrote:
> > > Hi
> > > I have a very long string. Code will be ugly (not easy to
> > > navigate for reading) if I write it in a line.
> > > I want to write it in many lines, but treat as one line long
> > > string. How can I do it ?
> >
> > code:
> >
> > use strict;
> > use warnings;
> >
> > (my $long = <<EOLONG) =~ tr/\n/ /;
> > This is a
> > really really really
> > long string
> > EOLONG
> >
> > print $long, "\n";
> >
> > ===
> >
> > output:
> >
> > This is a really really really long string
>
> What if the string is supposed to contain newlines?
>
> my $long = 'This is a' .
> ' really really really' .
> ' long string';
> print "$long\n";
>
> Anno
Then OP is supposed to use his head, Stephen tought him where to fish
------------------------------
Date: Tue, 9 Aug 2005 13:58:55 +0200
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: ignore new line for long string
Message-Id: <Xns96AD8E3B63BDelhber1lidotechnet@62.89.127.66>
"Noname" <Noname@hot.com> wrote:
> Anno Siegel wrote:
>
>> Stephen Hildrey <steve@uptime.org.uk> wrote in
>> comp.lang.perl.misc:
>> > ngoc wrote:
>> > > Hi
>> > > I have a very long string. Code will be ugly (not easy to
>> > > navigate for reading) if I write it in a line.
>> > > I want to write it in many lines, but treat as one line long
>> > > string. How can I do it ?
>> >
>> > code:
>> >
>> > use strict;
>> > use warnings;
>> >
>> > (my $long = <<EOLONG) =~ tr/\n/ /;
>> > This is a
>> > really really really
>> > long string
>> > EOLONG
>> >
>> > print $long, "\n";
>> >
>> > ===
>> >
>> > output:
>> >
>> > This is a really really really long string
>>
>> What if the string is supposed to contain newlines?
>>
>> my $long = 'This is a' .
>> ' really really really' .
>> ' long string';
>> print "$long\n";
>
> Then OP is supposed to use his head, Stephen tought him where to
> fish
No, he provided the OP with a ready solution. This is the exact
*opposite* of teaching him where to fish.
--
Cheers,
Bernard
------------------------------
Date: Sun, 07 Aug 2005 05:08:50 GMT
From: "Herb Martin" <news@LearnQuick.com>
Subject: Naive Unix Socket client
Message-Id: <CHgJe.74943$gL1.2074@tornado.texas.rr.com>
I tried to adapt the Perl Cookbook Unix socket recipe to
perform the follow (simple) test of a Unix socket daemon:
(code below)
open socket
write a string to the socket
read from the socket
output the response
My code is incredibly naive since I know little about Unix
sockets (except that THIS particular daemon is generally
working), but I need to test a variety of such socket daemons
(on Cygwin).
After inputting my test request and pressing Ctrl-D, I received
my expected "read now..." but no output appeared.
(Again: Other programs are successfully using THIS socket
daemon, but I need to test this one and several others.)
What I am really seeking is the equivalent of "netcat" for Unix
sockets or at least a generic "single query" and "read single
response" script.
#!/usr/bin/perl -w
use Socket;
$sockpath = '/var/run/spfd';
socket(CLIENT, PF_UNIX, SOCK_STREAM, 0);
connect(CLIENT, sockaddr_un($sockpath))
or die "Can't connect to $sockpath: $!";
while (<>) {
push @buffer, $_;
}
print CLIENT @buffer if @buffer;
print STDERR "read now...";
$x = <CLIENT>;
print $x . "\n";
close CLIENT;
############ google search after no so far helped me
--
Herb Martin
------------------------------
Date: 8 Aug 2005 11:46:26 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Naive Unix Socket client
Message-Id: <dd7gmi$sv9$1@mamenchi.zrz.TU-Berlin.DE>
Herb Martin <news@LearnQuick.com> wrote in comp.lang.perl.misc:
> I tried to adapt the Perl Cookbook Unix socket recipe to
> perform the follow (simple) test of a Unix socket daemon:
> (code below)
>
> open socket
> write a string to the socket
> read from the socket
> output the response
>
> My code is incredibly naive since I know little about Unix
> sockets (except that THIS particular daemon is generally
> working), but I need to test a variety of such socket daemons
> (on Cygwin).
>
> After inputting my test request and pressing Ctrl-D, I received
> my expected "read now..." but no output appeared.
>
> (Again: Other programs are successfully using THIS socket
> daemon, but I need to test this one and several others.)
>
> What I am really seeking is the equivalent of "netcat" for Unix
> sockets or at least a generic "single query" and "read single
> response" script.
>
> #!/usr/bin/perl -w
> use Socket;
> $sockpath = '/var/run/spfd';
>
> socket(CLIENT, PF_UNIX, SOCK_STREAM, 0);
> connect(CLIENT, sockaddr_un($sockpath))
> or die "Can't connect to $sockpath: $!";
>
> while (<>) {
> push @buffer, $_;
> }
Does the daemon accept multiline messages? You are sending at least
one linefeed.
> print CLIENT @buffer if @buffer;
> print STDERR "read now...";
>
> $x = <CLIENT>;
> print $x . "\n";
>
> close CLIENT;
Since we know nothing about the server you are contacting, except that
other programs are "using it successfully", all answers will be guess
work.
For a simple way to create a socket try Net::EasyTCP.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 08 Aug 2005 14:26:30 GMT
From: "Herb Martin" <news@LearnQuick.com>
Subject: Re: Naive Unix Socket client
Message-Id: <qYJJe.86653$gL1.46246@tornado.texas.rr.com>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:dd7gmi$sv9$1@mamenchi.zrz.TU-Berlin.DE...
> Herb Martin <news@LearnQuick.com> wrote in comp.lang.perl.misc:
> > I tried to adapt the Perl Cookbook Unix socket recipe to
> > perform the follow (simple) test of a Unix socket daemon:
> > (code below)
> >
> > After inputting my test request and pressing Ctrl-D, I received
> > my expected "read now..." but no output appeared.
> >
> > (Again: Other programs are successfully using THIS socket
> > daemon, but I need to test this one and several others.)
> >
> > What I am really seeking is the equivalent of "netcat" for Unix
> > sockets or at least a generic "single query" and "read single
> > response" script.
>
> Does the daemon accept multiline messages? You are sending at least
> one linefeed.
Yes...
That is the documentation and the program that is working with it is using
a newline at the end of each item, and two at the end of the completed
request.
This is the sort of thing I wish to test -- thus I am seeking (or writing)
a "netcat" like utility for Unix sockets so that I can try such things
interactively.
In this case (this particular daemon) is responding to my SMTP server
(Exim) but I have no simple way to test such sockets when things go bad
with this daemon or other daemons.
> Since we know nothing about the server you are contacting, except that
> other programs are "using it successfully", all answers will be guess
> work.
Thanks for responding. That is basically why I am seeking a "pre-built"
utility for interactively conversing with a Unix socket daemon -- so that
I can experiment and make sure that I am calling/using them correctly.
> For a simple way to create a socket try Net::EasyTCP.
I will look in there. Thanks for the pointer.
(I was sort of surprised that NetCat couldn't do it.)
--
Herb Martin
> Anno
> --
> If you want to post a followup via groups.google.com, don't use
> the broken "Reply" link at the bottom of the article. Click on
> "show options" at the top of the article, then click on the
> "Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 08 Aug 2005 16:46:48 GMT
From: "Herb Martin" <news@LearnQuick.com>
Subject: Re: Naive Unix Socket client
Message-Id: <Y%LJe.89035$gL1.38751@tornado.texas.rr.com>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:dd7gmi$sv9$1@mamenchi.zrz.TU-Berlin.DE...
> For a simple way to create a socket try Net::EasyTCP.
Net::EasyTCP doesn't seem to have anything to do with UNIX
Sockets but is instead about INET Sockets.
Do you use this with Unix sockets?
--
Herb Martin
------------------------------
Date: Tue, 09 Aug 2005 15:35:18 +0200
From: and.lascala@tiscali.it (ALS)
Subject: NET::LDAP filter problem
Message-Id: <ddabem$4rl$1@news.newsland.it>
hi, I have a strange problem with the NET::LDAP search filter.
This script works fine:
sub go {
...
my $smesg = $ldap->search(
base => 'dc=XXX,dc=XXX',
scope => 'sub',
filter => 'uid=USERNAME' , <------ it's a constant ('uid=pippo')
attrs => [ 'mail' ] );
...
}
but not this:
sub go {
..
my ($var) = @_; <--- contains the same user value but read from a text
file
my $smesg = $ldap->search(
base => 'dc=XXX,dc=XXX',
scope => 'sub',
filter => "uid=$var",
attrs => [ 'mail' ] );
...
}
I try with a CHOMP functions but it does not work yet.
Does anybody knows the problem, bugs? Any suggestions?
Thanks.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad abuse@newsland.it
------------------------------
Date: Tue, 09 Aug 2005 16:24:59 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: NET::LDAP filter problem
Message-Id: <ddae3i$ke2$1@nntp.fujitsu-siemens.com>
ALS wrote:
> hi, I have a strange problem with the NET::LDAP search filter.=20
> This script works fine:=20
> sub go {=20
> ...=20
> my $smesg =3D $ldap->search(=20
> base =3D> 'dc=3DXXX,dc=3DXXX',=20
> scope =3D> 'sub',=20
> filter =3D> 'uid=3DUSERNAME' , <------ it's a constant ('uid=3Dpippo') =
> attrs =3D> [ 'mail' ] );=20
>=20
> ...=20
>=20
> }=20
>=20
>=20
> but not this:=20
>=20
> sub go {=20
> ..=20
>=20
>=20
> my ($var) =3D @_; <--- contains the same user value but read from a tex=
t
> file=20
> my $smesg =3D $ldap->search(=20
> base =3D> 'dc=3DXXX,dc=3DXXX',=20
> scope =3D> 'sub',=20
> filter =3D> "uid=3D$var",=20
> attrs =3D> [ 'mail' ] );=20
> ...=20
>=20
> }=20
>=20
>=20
> I try with a CHOMP functions but it does not work yet.
> Does anybody knows the problem, bugs? Any suggestions?=20
Have you tried to print out the value of $var?
Josef
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Tue, 09 Aug 2005 17:11:28 +0200
From: and.lascala@tiscali.it (ALS)
Subject: Re: NET::LDAP filter problem
Message-Id: <ddah30$ngf$1@news.newsland.it>
Hi,
yes, the value of $var is equal to the constant.
Thanks.
Josef Moellers ha scritto:
> ALS wrote:
> > hi, I have a strange problem with the NET::LDAP search filter.
> > This script works fine:
> > sub go {
> > ...
> > my $smesg = $ldap->search(
> > base => 'dc=XXX,dc=XXX',
> > scope => 'sub',
> > filter => 'uid=USERNAME' , <------ it's a constant ('uid=pippo')
> > attrs => [ 'mail' ] );
> >
> > ...
> >
> > }
> >
> >
> > but not this:
> >
> > sub go {
> > ..
> >
> >
> > my ($var) = @_; <--- contains the same user value but read from a text
> > file
> > my $smesg = $ldap->search(
> > base => 'dc=XXX,dc=XXX',
> > scope => 'sub',
> > filter => "uid=$var",
> > attrs => [ 'mail' ] );
> > ...
> >
> > }
> >
> >
> > I try with a CHOMP functions but it does not work yet.
> > Does anybody knows the problem, bugs? Any suggestions?
> Have you tried to print out the value of $var?
> Josef
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad abuse@newsland.it
------------------------------
Date: Tue, 9 Aug 2005 11:06:05 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Numeric or character ?
Message-Id: <dda2mt$4af$1@reader2.panix.com>
In article <Xns9698B4F254690asu1cornelledu@127.0.0.1>,
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
>John Cecere <john.cecere@sun.com> wrote in
>news:dbjr71$4bn$1@news1brm.Central.Sun.COM:
>
SNIP
>
>#!/usr/bin/perl
>
>use strict;
>use warnings;
>
>my $input;
>
>$| = 1;
>
>do {
> print "Please enter and integer between 0 and 255: ";
> $input = <STDIN>;
>} until $input =~ /^(\d\d?\d?)$/ and 0 + $1 < 256;
>
>print "You entered: $input\n";
>
>__END__
...
Following Damian's new book (Perl Best Practices) (plus this group),
might it be safer to localize $|?
David
------------------------------
Date: Sun, 07 Aug 2005 00:27:12 -0000
From: Mark Elston <M.Elston@RemoveAdvantest-ardRemove.com>
Subject: Perl extracting info from MS Word doc
Message-Id: <Xns96AAB18A3D1DDmelstonadvantestardc@216.168.3.44>
I have had some problems using Perl to get a specific piece
of information from a MS Word doc (Word 2003). I have an
equivalent VB script that works without a hitch but cannot
get ActiveState Perl (5.8.7) to do what I want.
For now I am trying to get the text in the 'Title' style
from the document. When I use the VB script below reading
a test doc I get the full title string - 'A Test Document'.
When I use the Perl script below I get only the first
letter of the title - 'A'.
Any ideas what I am doing wrong?
Mark
---------------------VB Sample-------------------------------
file = SomeFile.doc
set app = WScript.CreateObject("Word.Application")
title = GetTitle(file)
wscript.echo title
app.quit
Function GetTitle(file)
app.documents.open(file)
set doc = app.activedocument
set sel = app.selection
sel.find.clearformatting
with sel.find
.style = doc.styles("Title")
.text = ""
.replacement.text = ""
.forward = true
.format = true
end with
sel.find.execute
GetTitle = sel.text
doc.close
End Function
----------------------------------------------------
----------------Perl Equivalent------------------------------------
use strict;
use Cwd;
use Win32::OLE ("with");
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Word';
#use Win32::OLE::Const;
my $App = Win32::OLE->new('Word.Application') or
die "Cannot create Word.Application";
my $wd = cwd();
my $files = ("SomeFile.doc");
foreach my $file (@files)
{
my $title = getTitle($App, $file);
if ($title)
{
print "Title: '$title'\n";
}
else
{
print "No Title\n";
}
}
$App->Quit();
sub getTitle
{
my ($App, $file) = @_;
$App->Documents->Open($file)
|| die("Unable to open $file ", Win32::OLE->LastError());
my $doc = $App->ActiveDocument;
my $sel = $App->Selection;
$sel->{'Find'}->ClearFormatting;
$sel->{'Find'}->{'Style'} = $doc->Styles('Title');
$sel->{'Find'}->{'Text'} = "";
$sel->{'Find'}->{'Replacement'}->{'Text'} = "";
$sel->{'Find'}->{'Forward'} = 1;
$sel->{'Find'}->{'Format'} = 1;
$sel->{'Find'}->Execute;
return $sel->Text;
}
----------------------------------------------------
------------------------------
Date: Sun, 07 Aug 2005 13:32:22 +0200
From: "ekkehard.horner" <ekkehard.horner@arcor.de>
Subject: Re: Perl extracting info from MS Word doc
Message-Id: <42f5f147$0$6974$9b4e6d93@newsread2.arcor-online.net>
Mark Elston wrote:
> I have had some problems using Perl to get a specific piece
> of information from a MS Word doc (Word 2003).
...
> my $files = ("SomeFile.doc");
my @files = ("SomeFile.doc");
...
> sub getTitle
> {
...
> $sel->{'Find'}->{'Style'} = $doc->Styles('Title');
$sel->{'Find'}->{'Style'} = 'Title';
...
> return $sel->Text;
$sel->{'Find'}->{'Text'}
------------------------------
Date: Mon, 08 Aug 2005 04:20:00 -0000
From: Mark Elston <M.Elston@RemoveAdvantest-ardRemove.com>
Subject: Re: Perl extracting info from MS Word doc
Message-Id: <Xns96ABD9024E35Bmelstonadvantestardc@216.168.3.44>
"ekkehard.horner" <ekkehard.horner@arcor.de> wrote in news:42f5f147$0
$6974$9b4e6d93@newsread2.arcor-online.net:
Ekkehard,
Thanks for the response. There are some interesting developments.
See below.
> Mark Elston wrote:
> > I have had some problems using Perl to get a specific piece
> > of information from a MS Word doc (Word 2003).
> ...
> > my $files = ("SomeFile.doc");
> my @files = ("SomeFile.doc");
Transcription error. I had it right in the original script. Sigh.
Sorry about that.
> ...
> > sub getTitle
> > {
> ...
> > $sel->{'Find'}->{'Style'} = $doc->Styles('Title');
> $sel->{'Find'}->{'Style'} = 'Title';
I hadn't thought of this. I had tried several variations,
though, of the original with no effect.
> ...
> > return $sel->Text;
> $sel->{'Find'}->{'Text'}
Again, I had tried several variations of this, including this one.
I read in the Office VB Help that executing a Find on a Selection
changes the Selection which is why I thought this would work.
However, after making these changes, I still didn't get the appropriate
answer. Instead I got 'No Title'. It didn't find anything that
matched.
So I used the logic I mentioned about the Selection object and restored
the original. Now I get the exact title that I expected (hooray) with a
carriage return appended (ugh). When I print this out I get a strange
looking output with an ending quote before the string!
I assume the carriage return is a representation of the hard return
inserted at the end of the title. I can always use 'chop' if necessary
to remove it. However, I would also like to not retain any 'internal'
carriage returns if they exist. I guess I can always search through
the returned string and remove any CRs and replace them with spaces.
Thanks again for the help. It got me over the hump.
Mark
------------------------------
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 8307
***************************************
