[31752] in Perl-Users-Digest
Perl-Users Digest, Issue: 3015 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 1 18:09:33 2010
Date: Thu, 1 Jul 2010 15:09:13 -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 Thu, 1 Jul 2010 Volume: 11 Number: 3015
Today's topics:
How to up file with SFTP protocol using Windows Actives <info@potop.hr>
Re: How to use $string=~s/(whatever)/${$i}/; with stric <peter@makholm.net>
Re: How to use $string=~s/(whatever)/${$i}/; with stric <tadmc@seesig.invalid>
Re: Parsing file names with spaces <spamtrap@shermpendley.com>
Re: Parsing file names with spaces <jak@isp2dial.com>
Re: Parsing file names with spaces <hjp-usenet2@hjp.at>
Re: Parsing file names with spaces <tadmc@seesig.invalid>
Re: Parsing file names with spaces <hjp-usenet2@hjp.at>
Re: Parsing file names with spaces <jimsgibson@gmail.com>
Re: Parsing file names with spaces <jak@isp2dial.com>
Re: Parsing file names with spaces <hjp-usenet2@hjp.at>
Re: Parsing file names with spaces <rvtol+usenet@xs4all.nl>
Re: Parsing file names with spaces <hjp-usenet2@hjp.at>
Re: Parsing file names with spaces sln@netherlands.com
Re: Parsing file names with spaces sln@netherlands.com
Problem with IE automation in Perl <mulshankar@gmail.com>
Re: Problem with IE automation in Perl <google@markginsburg.com>
Re: The daemon helper, dh is its name <jak@isp2dial.com>
Re: The daemon helper, dh is its name <tadmc@seesig.invalid>
Re: The daemon helper, dh is its name <tzz@lifelogs.com>
Re: Trouble installing DBD-Oracle-1.23 on Cygwin <davidmichaelkarr@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 1 Jul 2010 23:17:05 +0200
From: <info@potop.hr>
Subject: How to up file with SFTP protocol using Windows Activestate perl?
Message-Id: <i0j0kk$tbr$1@localhost.localdomain>
How to use SFTP protocol with Activestate perl?
Please help me
__________ ESET Smart Security informacija, verzija baze podataka virusnih potpisa 5244 (20100701) __________
poruka je provjerena programom ESET Smart Security.
http://www.eset.com.hr
------------------------------
Date: Thu, 01 Jul 2010 17:11:34 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: How to use $string=~s/(whatever)/${$i}/; with strict ref?
Message-Id: <87d3v7p789.fsf@vps1.hacking.dk>
yjnnhauhht <yjnnhauhht@mailinator.com> writes:
> But fails to compile with error message "Can't use string ("1") as a
> SCALAR ref while "strict refs"" with strict ref.
>
> Is there a way to write it differently so that it's accepted with
> strict ref?
No, but you can disable strict refs in a block:
#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;
my $i = 1;
my $string = "teststring";
{
no strict 'refs';
$string =~ s/(test)/\U${$i}/i;
}
say $string;
$string =~ s/(test)/\L${$i}/i;
say $string;
__END__
//Makholm
------------------------------
Date: Thu, 01 Jul 2010 11:29:37 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: How to use $string=~s/(whatever)/${$i}/; with strict ref?
Message-Id: <slrni2pgbj.cbl.tadmc@tadbox.sbcglobal.net>
yjnnhauhht <yjnnhauhht@mailinator.com> wrote:
> Hi,
>
> The following works without strict ref (withh perl 5.10 not 5.8) :
> my $i=1;
> my $string="teststring";
> $string=~s/(test)/${$i}/;
> print "$string\n";
>
> But fails to compile with error message "Can't use string ("1") as a
> SCALAR ref while "strict refs"" with strict ref.
>
> Is there a way to write it differently so that it's accepted with
> strict ref?
Sure:
$string=~s/(test)/test/;
I smell an XY-problem.
What is it that you are actually trying to accomplish?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Thu, 01 Jul 2010 11:31:49 -0400
From: Sherm Pendley <spamtrap@shermpendley.com>
Subject: Re: Parsing file names with spaces
Message-Id: <m21vbncj6i.fsf@shermpendley.com>
John Kelly <jak@isp2dial.com> writes:
> Of course I realize that does little to assuage the social thirst of the
> dominant clique here.
Boo hoo. Whine much?
sherm--
--
Sherm Pendley <www.shermpendley.com>
<www.camelbones.org>
Cocoa Developer
------------------------------
Date: Thu, 01 Jul 2010 15:38:15 +0000
From: John Kelly <jak@isp2dial.com>
Subject: Re: Parsing file names with spaces
Message-Id: <bedp26df753gnpfc9psiho59jkous8kpgh@4ax.com>
On Thu, 01 Jul 2010 11:31:49 -0400, Sherm Pendley
<spamtrap@shermpendley.com> wrote:
>John Kelly <jak@isp2dial.com> writes:
>
>> Of course I realize that does little to assuage the social thirst of the
>> dominant clique here.
>
>Boo hoo. Whine much?
You just couldn't resist could you.
"While snarlers strive with proud but fruitless pain
To wound immortals, or to slay the slain."
--
Web mail, POP3, and SMTP
http://www.beewyz.com/freeaccounts.php
------------------------------
Date: Thu, 1 Jul 2010 18:02:15 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Parsing file names with spaces
Message-Id: <slrni2pf07.i0g.hjp-usenet2@hrunkner.hjp.at>
On 2010-07-01 11:14, Justin C <justin.0911@purestblue.com> wrote:
> On 2010-07-01, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
>>
>> BM> ls -l output intentionally uses fixed-width columns, except for the
>> BM> filename. So
>>
>> normally that is true, but very large files can cause the name column to
>> be shifted over. some ls flavors or options will change the size to use
>> a suffix but you can't count on fixed width there. as i posted it is
>> best to assume fixed width until the size but that is always a number
>> with a possible size suffix so it is easy to match and the rest is the
>> file name.
>
> An observation (that may be erroneous) of the output of ls: The second
> to last field is always the time, which contains a colon.
Not true. If the file is older than 6 months, this field will be the
year. But something like
($stuff_before_date, $date, $filename) =
m/
(.*) \040
((?: Jan | Feb | ... | Dec) \d\d (?: \d\d:\d\d | \d\d\d\d) ) \040
(.*)
/x;
might work. Of course the output of ls depends on the locale, so it
might be completely different, but if we want to parse every possible
output of ls the problem becomes intractable, so you need to make some
assumptions, like "locale is known" or "user and group names don't
contain spaces" or "fields are lined up". To take advantage of the
last property you need to check all the lines to detect vertical
columns.
hp
------------------------------
Date: Thu, 01 Jul 2010 11:24:42 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Parsing file names with spaces
Message-Id: <slrni2pg2b.cbl.tadmc@tadbox.sbcglobal.net>
John Kelly <jak@isp2dial.com> wrote:
> On Thu, 01 Jul 2010 11:31:49 -0400, Sherm Pendley
><spamtrap@shermpendley.com> wrote:
>
>>John Kelly <jak@isp2dial.com> writes:
>>
>>> Of course I realize that does little to assuage the social thirst of the
>>> dominant clique here.
>>
>>Boo hoo. Whine much?
>
> You just couldn't resist could you.
*you* just couldn't resist, could you?
Your followup partially quoted above was a decent contribution
to the group... until you had to inject your bile at the end.
You reap what you sow.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Thu, 1 Jul 2010 18:41:12 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Parsing file names with spaces
Message-Id: <slrni2ph98.i0g.hjp-usenet2@hrunkner.hjp.at>
On 2010-07-01 03:46, John Kelly <jak@isp2dial.com> wrote:
> On Wed, 30 Jun 2010 23:26:59 -0400, "Uri Guttman" <uri@StemSystems.com>
> wrote:
[nothing of importance]
Can you two please take your bickering elsewhere? This is getting
tireseome.
hp
------------------------------
Date: Thu, 01 Jul 2010 09:44:56 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Parsing file names with spaces
Message-Id: <010720100944561678%jimsgibson@gmail.com>
In article <j4vn26110qd9p89ai9tngmr4o43eia26pb@4ax.com>, Jürgen Exner
<jurgenex@hotmail.com> wrote:
> "Uri Guttman" <uri@StemSystems.com> wrote:
> >that is just poor code. do you want to count the undefs each time you do
> >something like that? and why is that last line checking for space? he
> >wants all the file names.
>
> That is not what the OP said. He explicitely said:
> "I want to extract just the file which contain spaces"
>
> To me that excludes filenames without spaces.
Unfortunately, "file which contain spaces" is incorrect English and
ambiguous. The phrase should be either:
1. "file names that contain spaces"
or
2. "file names, which can contain spaces"
"that" is "restrictive" here and means only file names that include
spaces are wanted, while "which" is "non-restrictive" and means that
all file names are wanted, but some may contain spaces. Note the
difference in punctuation.
<http://www.worldwidewords.org/articles/which.htm>
While this sounds like a nit-pick, it does influence the code, as we
have seen.
--
Jim Gibson
------------------------------
Date: Thu, 01 Jul 2010 16:58:35 +0000
From: John Kelly <jak@isp2dial.com>
Subject: Re: Parsing file names with spaces
Message-Id: <8uhp261bcdq9ohteti62pr72goemjdervt@4ax.com>
On Thu, 1 Jul 2010 18:41:12 +0200, "Peter J. Holzer"
<hjp-usenet2@hjp.at> wrote:
>On 2010-07-01 03:46, John Kelly <jak@isp2dial.com> wrote:
>> On Wed, 30 Jun 2010 23:26:59 -0400, "Uri Guttman" <uri@StemSystems.com>
>> wrote:
>[nothing of importance]
>
>Can you two please take your bickering elsewhere? This is getting
>tireseome.
You're right, it's gone too far.
I will try to exert more willpower and resist the urge. I hope people
understand that means I won't answer, when they question why did I post
this or that.
--
Web mail, POP3, and SMTP
http://www.beewyz.com/freeaccounts.php
------------------------------
Date: Thu, 1 Jul 2010 19:02:44 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Parsing file names with spaces
Message-Id: <slrni2pihk.i0g.hjp-usenet2@hrunkner.hjp.at>
On 2010-07-01 00:38, Ben Morrow <ben@morrow.me.uk> wrote:
>
> Quoth James Egan <jegan473@comcast.net>:
>> Assuming an array named @myfiles contained three elements like:
>>
>> -rwxrwxrwx 1 777 22000 2971201 Jan 24 18:17 file1.zip
>> -rwxrwxrwx 1 777 22000 2969941 Jan 28 18:10 file2 onespace.zip
>> -rwxrwxrwx 1 777 22000 2969941 Jan 29 13:28 file3 two spaces.zip
>>
>> I want to extract just the file which contain spaces to work with like:
>>
>> file1.zip
>> file2 onespace.zip
>> file3 two spaces.zip
>>
>>
>> How can I extract the file names which have spaces?
>
> ls -l output intentionally uses fixed-width columns, except for the
> filename. So
Depends on the version of ls. Recent versions of GNU ls vary all the
column widths to fit their contents. So they are always nicely aligned
but different on each listing.
hp
------------------------------
Date: Thu, 01 Jul 2010 19:15:29 +0200
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Parsing file names with spaces
Message-Id: <4c2ccd31$0$22945$e4fe514c@news.xs4all.nl>
John Kelly wrote:
> Sometimes people wander into a newsgroup looking for ideas,
> and need a friendly helping hand more than elegant code.
Gentle healers make stinking wounds.
--
Ruud
------------------------------
Date: Thu, 1 Jul 2010 22:35:34 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Parsing file names with spaces
Message-Id: <slrni2pv0o.i0g.hjp-usenet2@hrunkner.hjp.at>
On 2010-07-01 03:17, Tad McClellan <tadmc@seesig.invalid> wrote:
> James Egan <jegan473@comcast.net> wrote:
>
> [ snip where a nice soul has tried to solve the OP's poorly specified problem ]
>
>> I should have mentioned that the dates, sizes, names, of the files,
>> might be different, so they won't always start at position 50.
>
>
> No, you should not have mentioned that.
>
> You should have provided test data that reflects your real data.
I disagree. He should have mentioned that and quite a few things more
(for example the different date formats, whether user and group names
are always numeric, and if not, whether they can contain spaces, etc.)
Test data is nice but you can never assume that it covers all possible
cases and requirements reverse engineered from a few lines of test
data are almost guaranteed to be incomplete. Besides, why should
everyone in this group have to figure out the requirements when the OP
can do it once?
hp
------------------------------
Date: Thu, 01 Jul 2010 13:51:16 -0700
From: sln@netherlands.com
Subject: Re: Parsing file names with spaces
Message-Id: <bsup269l8h4gebpdv4c4mqll7ufqll9ub7@4ax.com>
On Thu, 01 Jul 2010 11:14:33 -0000, Justin C <justin.0911@purestblue.com> wrote:
>On 2010-07-01, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
>>
>> BM> ls -l output intentionally uses fixed-width columns, except for the
>> BM> filename. So
>>
>> normally that is true, but very large files can cause the name column to
>> be shifted over. some ls flavors or options will change the size to use
>> a suffix but you can't count on fixed width there. as i posted it is
>> best to assume fixed width until the size but that is always a number
>> with a possible size suffix so it is easy to match and the rest is the
>> file name.
>
>An observation (that may be erroneous) of the output of ls: The second
>to last field is always the time, which contains a colon. How about
>matching /:\d{2}\s+.*\s+.+\b/ ?
^
' ' is in the class defined by . and \s
Given "18:17\040\040file1.zip",
:\d{2}\s+ will match ":17\040", ".*" will match nothing
and "\s+.+\b" will match "\040file1.zip"
Equally, /:\d{2}\s+.+\s+.+\b/
^
will produce the same problem given
"18:17\040\040\040file1.zip"
The solution is to anchor both ends of the filename with a single
character of the class \S, then let backtracking take over the middle
with the 0 or more quantifier \S.*\s.*\S
Test case:
"Jan 24 18:17 file1.zip" =~ /:\d{2}\s+(.*\s+.+)\b/
and print "$1\n";
"Jan 24 18:17 file2.zip" =~ /:\d{2}\s+(.+\s+.+)\b/
and print "$1\n";
"Jan 24 18:17 file3.zip" =~ /:\d{2}\s+(\S.*\s.*\S)\b/
and print "$1\n";
"Jan 24 18:17 file4.zip" =~ /:\d{2}\s+(\S.*\s.*\S)\b/
and print "$1\n";
>
>#!/usr/bin/perl
>
>use strict;
>use warnings;
>
>while (<DATA>) {
> if (/:\d{2}\s+(.*\s+.+)\b/) {
^^^^^^^^^^^^^^^^^^^^^^
/:\d{2}\s+(\S.*\s.*\S)\b/
> print $1, "\n";
> }
>}
>
>__DATA__
>-rwxrwxrwx 1 777 22000 2971201 Jan 24 18:17 file1.zip
>-rwxrwxrwx 1 777 22000 9941 Jan 28 18:10 file2 onespace.zip
>-rwxrwxrwx 1 777 22000 3002969941 Jan 29 13:28 file3 two spaces.zip
>
-sln
------------------------------
Date: Thu, 01 Jul 2010 14:10:22 -0700
From: sln@netherlands.com
Subject: Re: Parsing file names with spaces
Message-Id: <bb0q26pc2kbkvnt87697087u5mb3t9p6gb@4ax.com>
On Thu, 1 Jul 2010 18:02:15 +0200, "Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
>On 2010-07-01 11:14, Justin C <justin.0911@purestblue.com> wrote:
>> On 2010-07-01, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
>>>
>>> BM> ls -l output intentionally uses fixed-width columns, except for the
>>> BM> filename. So
>>>
>>> normally that is true, but very large files can cause the name column to
>>> be shifted over. some ls flavors or options will change the size to use
>>> a suffix but you can't count on fixed width there. as i posted it is
>>> best to assume fixed width until the size but that is always a number
>>> with a possible size suffix so it is easy to match and the rest is the
>>> file name.
>>
>> An observation (that may be erroneous) of the output of ls: The second
>> to last field is always the time, which contains a colon.
>
>Not true. If the file is older than 6 months, this field will be the
>year. But something like
>
>($stuff_before_date, $date, $filename) =
> m/
> (.*) \040
> ((?: Jan | Feb | ... | Dec) \d\d (?: \d\d:\d\d | \d\d\d\d) ) \040
> (.*)
> /x;
>
>might work. Of course the output of ls depends on the locale, so it
>might be completely different, but if we want to parse every possible
>output of ls the problem becomes intractable, so you need to make some
>assumptions, like "locale is known" or "user and group names don't
>contain spaces" or "fields are lined up". To take advantage of the
>last property you need to check all the lines to detect vertical
>columns.
>
Increasingly, it becomes evident that fields may be the easiest to
maintain but certainly not a fix. The date as an anchor for the filename
may be more reliable, but the locale could present issues.
So in the spirit of split, something via regex maybe?
/\s* (?: \S+ \040+ ){8} ([^\040\n] .* \040 .* [^\040\n]) \n/x
-sln
------------------------------
Date: Thu, 1 Jul 2010 08:48:30 -0700 (PDT)
From: shankar_perl_rookie <mulshankar@gmail.com>
Subject: Problem with IE automation in Perl
Message-Id: <e6272f6e-ebca-422c-a9ba-3ad86e99e48e@z10g2000yqb.googlegroups.com>
Hello All,
I am looking to automate IE search using Perl. The site I am trying to
access has a security certificate and I am trying to send an enter
command to just click 'OK' on the security dialog box that opens. I
tried win32::IEAutomation in combination with win32::winclicker which
probably has the exact method to do this but somehow in my case, it is
not able to recognize the dialog box i feel. Here is the code I have.
Please take a look and let me know where I am possibly going wrong:
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker; # this will provide methods to
interact with dialog box
#use Win32::GuiTest; # qw(FindWindowLike GetWindowText
SetForegroundWindow SendKeys);
my $title ='Choose a digital certificate';
my $wait= 5;
# Creating new instance of Internet Explorer
my $ie = Win32::IEAutomation->new( visible => 1);
# Site navigation
$ie->gotoURL('https:......');
# managing security dialog boxes
my $clicker = Win32::IEAutomation::WinClicker->new();
$clicker->push_confirm_button_ok($title,$wait);
$ie->WaitforDone; # we will wait here for complete loading of
navigated site
The push confirm method is as follows :
sub push_confirm_button_ok{
print "hello inside yes loop \n";
my ($self, $title,$wait) = @_;
print "$self \n$title \n$wait \n";
$wait = 5 unless $wait;
$self->{autoit}->WinTitleMatchMode(3);
my $window = $self->{autoit}->WinWait($title, "", $wait);
if ($window){
print "break 4 inside open window loop \n";
$self->{autoit}->WinActivate($title);
$self->{autoit}->Send('{ENTER}');
}else{
print "WARNING: No Security Alert dialog is present. Function
push_security_alert_yes is timed out.\n" if $warn;
}
}
It is never entering the break point 4 which means that $window is not
recognized. What could be the reason ?
Thanks a lot
------------------------------
Date: Thu, 1 Jul 2010 14:05:39 -0700 (PDT)
From: Mark <google@markginsburg.com>
Subject: Re: Problem with IE automation in Perl
Message-Id: <b055d77d-5b8a-4f87-837a-7e645100f72f@q12g2000yqj.googlegroups.com>
On Jul 1, 8:48=A0am, shankar_perl_rookie <mulshan...@gmail.com> wrote:
> Hello All,
>
> I am looking to automate IE search using Perl. The site I am trying to
> access has a security certificate and I am trying to send an enter
> command to just click 'OK' on the security dialog box that opens. I
> tried win32::IEAutomation in combination with win32::winclicker which
> probably has the exact method to do this but somehow in my case, it is
> not able to recognize the dialog box i feel. Here is the code I have.
> Please take a look and let me know where I am possibly going wrong:
>
> =A0use strict;
> =A0use Win32::OLE;
> =A0use Win32::OLE::Const 'Microsoft Excel';
> =A0 use Win32::IEAutomation;
> =A0use Win32::IEAutomation::WinClicker; # this will provide methods to
> interact with dialog box
> =A0#use Win32::GuiTest; # qw(FindWindowLike GetWindowText
> SetForegroundWindow SendKeys);
>
> =A0my $title =3D'Choose a digital certificate';
> =A0my $wait=3D 5;
>
> =A0# Creating new instance of Internet Explorer
>
> my $ie =3D Win32::IEAutomation->new( visible =3D> 1);
>
> # Site navigation
>
> =A0 $ie->gotoURL('https:......');
>
> # managing security dialog boxes
>
> =A0 =A0my $clicker =3D Win32::IEAutomation::WinClicker->new();
> =A0 =A0$clicker->push_confirm_button_ok($title,$wait);
> =A0 =A0$ie->WaitforDone; # we will wait here for complete loading of
> navigated site
>
> The push confirm method is as follows :
>
> sub push_confirm_button_ok{
>
> =A0 =A0 =A0 =A0 print "hello inside yes loop \n";
> =A0 =A0 =A0 =A0 my ($self, $title,$wait) =3D @_;
> =A0 =A0 =A0 =A0 print "$self \n$title \n$wait \n";
> =A0 =A0 =A0 =A0 $wait =3D 5 unless $wait;
> =A0 =A0 =A0 =A0 $self->{autoit}->WinTitleMatchMode(3);
> =A0 =A0 =A0 =A0 my $window =3D $self->{autoit}->WinWait($title, "", $wait=
);
> =A0 =A0 =A0 =A0 if ($window){
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "break 4 inside open window loop \n=
";
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 $self->{autoit}->WinActivate($title);
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 $self->{autoit}->Send('{ENTER}');
> =A0 =A0 =A0 =A0 }else{
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "WARNING: No Security Alert dialog =
is present. Function
> push_security_alert_yes is timed out.\n" if $warn;
> =A0 =A0 =A0 =A0 }
>
> }
>
> It is never entering the break point 4 which means that $window is not
> recognized. What could be the reason ?
>
> Thanks a lot
I've never used those modules. You might try using Win32::GuiTest to
send ENTER to that dialog:
use Win32::GuiTest qw(SendKeys SetForegroundWindow WaitWindow);
my $whdl =3D WaitWindow($title,$wait) || die "Window '$title' not found.
\n";
SetForegroundWindow($whdl) || die "could not set foreround window
'$title'";
SendKeys('{ENTER}');
------------------------------
Date: Thu, 01 Jul 2010 15:18:32 +0000
From: John Kelly <jak@isp2dial.com>
Subject: Re: The daemon helper, dh is its name
Message-Id: <5sbp26ljvkvid25r0k093j19dga4c3lpbl@4ax.com>
On Thu, 01 Jul 2010 11:05:08 -0400, sreservoir <sreservoir@gmail.com>
wrote:
>>>> If you're not interested in a thread, or it seems off topic to you, why
>>>> not ignore it.
>>
>>> Doing so encourages more off-topic threads.
>>
>> I believe not.
>
>you believe wrongly.
How can you be sure.
>> Some people use newsgroups as a social structure where they hang out and
>> meet friends. So they expect newcomers to behave like themselves. But
>> I don't use newsgroups that way. To me they are an information resource
>> and little more. I'm not interested in your social group's approval.
>newsgroups _are_ social structure. treat them as such.
Well I don't mean to belittle anyone who has few other social outlets,
so let me apologize if my words caused offense. But I just can't get
into the spirit of group think online. I need face to face contact for
that.
For those who want to continue discussing psychology, please change the
subject. By now, we are far more off topic than the daemon helper ever
was.
--
Web mail, POP3, and SMTP
http://www.beewyz.com/freeaccounts.php
------------------------------
Date: Thu, 01 Jul 2010 11:21:25 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: The daemon helper, dh is its name
Message-Id: <slrni2pfs6.cbl.tadmc@tadbox.sbcglobal.net>
John Kelly <jak@isp2dial.com> wrote:
> I just can't get
> into the spirit of group think online.
Then perhaps you should consider not joining groups online.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Thu, 01 Jul 2010 15:48:52 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: The daemon helper, dh is its name
Message-Id: <871vbn2aiz.fsf@lifelogs.com>
On Thu, 01 Jul 2010 13:21:55 +0000 John Kelly <jak@isp2dial.com> wrote:
JK> On Thu, 01 Jul 2010 07:39:01 -0500, Ted Zlatanov <tzz@lifelogs.com>
JK> wrote:
>> You should try to popularize your software but this way you will just
>> annoy people.
JK> If you're not interested in a thread, or it seems off topic to you, why
JK> not ignore it. Every complaint is another opportunity for me to discuss
JK> it.
I'm really not complaining and I have nothing against your software. I
was trying to help you find an audience; I can assure you c.l.p.misc is
not it and I tried to explain why it's not relevant and why people are
annoyed. If reddit.com is not to your liking, try freshmeat.com or any
of the other places software is announced.
Ted
------------------------------
Date: Thu, 1 Jul 2010 08:53:44 -0700 (PDT)
From: "david.karr" <davidmichaelkarr@gmail.com>
Subject: Re: Trouble installing DBD-Oracle-1.23 on Cygwin
Message-Id: <c463aa86-ae2d-4f8c-8f42-8a945999863d@i31g2000yqm.googlegroups.com>
On Jul 1, 2:58=A0am, Heinrich.Mis...@univie.ac.at (Heinrich Mislik)
wrote:
> In article <c1ce7706-4213-48e7-a7da-e17997322...@b35g2000yqi.googlegroups=
.com>, davidmichaelk...@gmail.com says...
>
> >Failed to load Oracle extension and/or shared libraries:
> >install_driver(Oracle) failed: Can't load '/c/frameworks/DBD-
> >Oracle-1.23/blib/arch/auto/DBD/Oracle/Oracle.dll' for module
> >DBD::Oracle: No such file or directory at /usr/lib/perl5/5.10/i686-
> >cygwin/DynaLoader.pm line 201.
> > at (eval 6) line 3
> >Compilation failed in require at (eval 6) line 3.
> >-----------------
>
> >That file DOES exist, and it's permissions are 755.
>
> Try ldd on this file to see, wether all DLLs could be found. You may
> need to add the directory of the Oracle-Client (that's where oci.dll
> resides) to the PATH variable. Here is what I get:
Putting the directory with oci.dll on the PATH is what did it.
Thanks. I should have thought of that.
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 3015
***************************************
