From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Daniel Burgaud
Sent: Thursday, September 20, 2007 14:49
To: perl-win32-users@listserv.activestate.com
Subject: PerlTk: problem with notebook and canvas
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Daniel Burgaud
Sent: Thursday, September 20, 2007 14:49
To: perl-win32-users@listserv.activestate.com
Subject: PerlTk: problem with notebook and canvas
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Mark Funk
Sent: Wednesday, August 08, 2007 14:59
To: perl-win32-users@listserv.ActiveState.com
Subject: hash table question
What exactly
Look at folder options and then file types. Check pl to insure that
Open has something like:
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
John Townsend
Sent: Tuesday, May 15, 2007 08:33
To: perl-win32-users@listserv.ActiveState.com
Subject: How do I know where my Perl script is running?
Title: Regular expression question
From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Cai, Lucy (L.)Sent: Monday, July 31, 2006 17:21To:
Cai, Lucy (L.); perl-win32-users@listserv.ActiveState.com;
perl-unix-users@listserv.ActiveState.com;
[EMAIL PROTECTED];
[EMAIL
[EMAIL PROTECTED] wrote:
Thanks for the replies so far. I am going to respond to this one for
all of them up to now.
This approach is very good for the problem with only two data elements
on a line, but it
seems to require that I know the duplicate entries when I write the
code.
I can
I don't believe you want to rely
upon the order, butr add the extra sort to for the key so you know and do not
leave it to the current setup and with the next release
changes.
Wags ;)
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
Joe
[EMAIL PROTECTED] wrote:
Real simple,
I have a string, $a for arguments sake, that contains a single
word. The word will always have exactly 8 characters in it, most
likely something like ABCD1234. I need to split this up into two
strings ($b $c), the first string needs to contain
[EMAIL PROTECTED] wrote:
Using a regex, I want to replace each leading space-character with a
corresponding zero-character on a one-to-one basis. For an example
string:
My $string = ' 259.00 ';
Note that I don't want to change the trailing space character. The
resulting string would
[EMAIL PROTECTED] wrote:
Since Efficiency seems to be the topic of the day,
My situation, I have an array filled with 8-character strings, a
few thousand of them. First 4 chars are letters, last 4 are numbers.
Examples - abcd1234, zyxw9876, etcc. The letters portion is a
prefix,
[EMAIL PROTECTED] wrote:
Okay,
Here's what I've come up with:
--
@list = (aacs1110, brbt4332, rtxa4320, aacs2000, brig5621,
brbt5220, nbvc);
@list = sort @list;
foreach $item (@list) {
$itemPref = substr($item, 0, 4);
$itemVers = substr($item, 4);
Ng, Bill wrote:
That's incorrect though, since your output shows two copies of aacs
and brbt ...
Bill
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 05, 2006 5:02 PM
To: Ng, Bill; perl-win32-users
[EMAIL PROTECTED] wrote:
Hello,
I am looking for help on a regex that examines strings such as
xxxN yyy sssNNN
xxxN yyyNyyy sss
xxxN yyyNyyy ssN
and returns only the sss part? N is always a numeral, and s is always
alphabetic.
Here is what I have so far as an
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
Scott PurcellSent: Thursday, March 23, 2006 12:05To:
Perl-Win32-Users@listserv.ActiveState.comSubject: Reg _expression_
Help
Hello,
I have a regular _expression_ in
which I am
[EMAIL PROTECTED] wrote:
Hello,
I want to open a text file, look for a specific string, replace it
with a new string, and write the line out to another file. For lines
not containing the specific string, I want to write out as is.
I was wondering if it is possible to do it with a map or
Unclear in that are you saying? Is a__ where _ is a space is valid or can
three spaces be valid? So are you working with only alpha and spaces or alpha,
numbers and spaces?
Wags ;)
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
amit
[EMAIL PROTECTED] wrote:
Hi,
I am calling a script with in a script and pass a parameter to it. The
recieving script won't see the passed
parameters.
here is what I am doing:
#defiend in the calling script
my $termPort = 'port1';
system 'xterm -bg yellow -fg black -rightbar -hold -T
[EMAIL PROTECTED] wrote:
What is the easiest method to detect whether or not a directory
exists? I will need to create the directory/subdirectory if it is not
already present. The file test -d does not seem to do the trick. Is
there a quick and low-overhead method of doing this without
[EMAIL PROTECTED] wrote:
Hi Guys,
I have an array of values. How can I sort these values that has
a non numeric character [ _ ] in it? What I did was parse the numbers
before the _ character and then perform a number short on those
value, but there must be an easier way? Any help is
[EMAIL PROTECTED] wrote:
Hello,
When a .bat file with just the line:
cd c:\some\where
is executed from the Windows cmd shell, then
when the .bat file terminates, the directory
of the shell would have changed to c:\some\where.
How do I get the same effect after running a
[EMAIL PROTECTED] wrote:
I thought this was working, but my logs just showed a case where it
seems not to do what I want.
Why does:
$OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;
Not become true when $body contains:
Library Card: 0240742
Just possibly there's some dodgy html or
[EMAIL PROTECTED] wrote:
I am trying to get the file stats
I found this code in ch8 of perl cookbook
( $dev, $ino, $mode, $nlink,
$uid, $gid, $rdev, $size,
$atime, $mtime, $ctime,
$blksize, $blocks ) = stat($filename)
and read the man page for stat and perlfunc but cant
[EMAIL PROTECTED] wrote:
Hi folks,
I have a seemingly simple problem, but I can't find a satisfying
solution. I have a function which tests to see if a value represents
what I want to call true. Here's a simplified version:
if ($val =~ /true/i || $val =~ /t/i || $val != 0) { return
[EMAIL PROTECTED] wrote:
Has anyone else been getting kicked off the list over and over again?
I keep getting suspended for too many bounces but all my other mail
seems to be getting here just fine. It's just everything from
ActiveState that is causing problems. Now if I don't get any
[EMAIL PROTECTED] wrote:
Im trying to sort out why the last line in the routine tokenizer()
fails to strip off the trailing double quote for all but the last
token.
AFAICT, none of the tokens have any newlines - so I'm at a loss as to
why it does not do what is expected - (this function is
[EMAIL PROTECTED] wrote:
Does anyone running Perl on Windows recommend a module for FTP? I
have tried Net::FTP::Common, but I can't get it to work and there
isn't much in the way of documentation. If you have some sample code
that retrieves a file from an FTP site, it would be really helpful
[EMAIL PROTECTED] wrote:
I'm running a perl script that checks the viability of a server. I
have the script scheduled to run every 5 minutes. That means every
five minutes I have a command window flash on the computer as the
script is being run. Is there any way to keep this command window
[EMAIL PROTECTED] wrote:
I am working with huge ASCII text files and large text fields.
As needs and wants have changed, I will be reprocessing data we have
already gone through to see if more records can be extracted.
I will need to compare strings to ensure that records I am inserting
Title: Message
use
Archive::Zip
Doc is sufficient and works very well for me.
Wags ;)
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of Gardner, SamSent: Friday, January 21, 2005 13:53To:
'Perl-Win32-Users@listserv.ActiveState.com'Subject: Zip
[EMAIL PROTECTED] wrote:
Hi all,
how do i automatically get a script to restart itself on error/crash
or kill?
I tried $SIG{INT}, but that only works with Ctrl-C, in a console.
Lets say i were to kill the process using the Task Manager (end
process). How do I get the script to
[EMAIL PROTECTED] wrote:
given a date string something like
11/03/2004 09:30:27
Is there a Perl mod that will turn this into peril's time() in
seconds from day zero?
Thanks
You would need to parse the data which you could do in two steps:
# Assumes you date/time is in $_
For anyone to help, we will need to see a snippet of
code to get an idea otherwise I don't think you will get a lot of help. Give the
group something to work with.
Wags ;)
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of Bharucha, NikhilSent:
[EMAIL PROTECTED] wrote:
I am trying to Compare 2 strings for an if statement in an admin
script. $slurp is an entire file, and $file is a name.
what i would like to do is compare the 2, basicly saying if this =
that do this otherwise do this. i have the if statement and stuff
right i just
[EMAIL PROTECTED] wrote:
Greetings,
Suppose I have a string like
$sequence = [sas];
How can I get rid of the leading and trailing brackets and just have
$sequence = sas;
$sequence =~ s/\[([^]]+)\]/$1/g;
This will remove it.
Wags ;)
One way I thought of was :
chop($sequence);
[EMAIL PROTECTED] wrote:
Can anyone seem to think of a less memory intensive way of doing this
(besides chopping the file up into smaller chunks -- which is my next
step unless I receive a better option?
The txt file is 335MB.
The column and row delimiter can change, but needs to be an
[EMAIL PROTECTED] wrote:
Greetings perlers,
new PSQ for you, so please bear with me. I'd like to convert the
lenght of a string into 3 Hex Values, eg.
if length($str) == 5 it would print 00 00 05
You can use sprintf and %x along with a size, though I am thinking you want it
I have looked at the problem machine(XP Professional) and looked at two others
(one running xp prof and one w2k). They both come back with the correct time. The
time on the machine is correct, but for 0927 PDT I get 1627 PDT. Now I get the
incorrect error whether I use MKS Kornshell
$Bill Luebkert wrote:
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
I have looked at the problem machine(XP Professional) and looked at
two others (one running xp prof and one w2k). They both come back
with the correct time. The time on the machine is correct, but for
0927
[EMAIL PROTECTED] wrote:
[EMAIL PROTECTED] wrote:
I'm having another senior moment, apparently, as the following shows:
my %DW_AutoSearch = ( 0x = [ Off, On, Off, Off ],
0x0004 = [ Off, Off, On, Off ],
0x0005 = [ Off, Off, Off,
[EMAIL PROTECTED] wrote:
Hello perlers,
I'm trying to send tome information over a TCP Socket, but I have to
send the length of the package as Hex, and the rest as ASCII. Could
someone explain me how to do that please? I've converted the length
to Hex but it always sends everything as
I need some help
with a dumb problem I've got:For some reason, arguments from the Windows
cmd.exe command line are no longer being passed into my Perl scripts via
@ARGV.Used to work fine.I tried removing Perl. Reinstalled (ActiveState) Perl (5.8.3.809-MSWin32-x86.msi) (on XP). No help!Anyone
I have asked this question, but received no clear cut reply on how to do this(
I belive it is possible ), but usnure how to accomplish the task. Within Outlook you
can have Rich Text as an email type. I can write the message to a file and place the
extension .rtf as part of the file
hey all,
Scratchin' my head on this one for a couple of hours now, looking at camels. sheep and
other documentation creatures to no avail. I'm trying to match a pattern that's
already (must be) in a variable like so:
$var = coyote;
while (FILE) {
if ($_ =~ /$var/i) {
print $_ .
[EMAIL PROTECTED] wrote:
Subject: File Monitoring
I've searched quite a bit for the illusionary AdvNotify and I'm
The writer of AdvNotify just seemed to disappear. At least any list that I was
on, no one an inkling what happened. I used the AdvNotify and it was very slick and I
It is the caller subroutine. I use it for printing start and stop times for
particular subs. So the print sub references who called him by something like:
#!perl -w
sub a {
c;
$caller = (caller(0))[3];
$caller =~ s/.*:://;
print 0 I am $caller\n;
};
sub b {c};
sub c {
Sorry to be so slow in responding. What happened was that I was working with
XP for the first time and made a security change and I did it at the wrong place. So
basically ended up with no real access to the machine. Ended up having to have the
machine rebuilt.
I just a few
[EMAIL PROTECTED] wrote:
Subject: Seemingly simple???
Hello,
I have a small problem, which at first seems simple, but has proven
to be a bit of a hair puller.
A collegue and I are importing some windows formatted ascii files
(onto our linux systems) and extracting certain string
[EMAIL PROTECTED] wrote:
Subject: newline...be gone
Greetings,
I have a question that probably easy to many...
How can I get rid of the newline at the end of $line
(which transfers to $remainder after splitting)?
If it is not off your system and you are getting the data from
Hanson, Rob wrote:
Unless you need something specific, you can use them as is since
those are valid numbers in Perl...
print 9.12e-002 * 1; # prints 0.0912
print 9.12e-002 * 2; # prints 0.1824
print 9.12e-002 + 100; # prints 100.0912
These all give correct answers. Did you need to
Capacio, Paula J wrote:
I am using $1 and $2 to retain data from a matched regular expression.
I expect $1 to contain the KEY ID and $2 to contain USER NAME, but $2
Pauls, If you put a slash between $1 and $2, you will find out that it is not
doing what you think. You will find that $1
I looked on Activestate site and found a Python script, but nothing from Perl.
Also looked on CPAN, but nothing stood out or I am using the wrong words in search.
Anyone done it? I am attempting to go to ATT WireLess. I have a running
application, but want to have a separate
I wanted to use tr but was uanble to accomplish the
task that way. So I used regex like the following:
use strict;
my %MCTWW = qw(m -1 e -1 v -1 q -1 g -1 n -1);my $MyCharsToWorkWith =
\%MCTWW;
$_ = '--mepqgn ';
if ( ! /-{1,2}(\S+)/ ) { printf "Expecting a hyphen
or two floowed by non
Brad Smith wrote:
I have written a little app, where I would like to dynamically create
a directory of resource providers, using Perl OLE and Word10. I would
like the directory to contain:
1. A full page color graphic
2. Table of Contents
3. Contents: each resource provider listed on a
steve silvers wrote:
No... This is not the problem.. I wrote a small snippet to show the
problem..
You will have to anchor in some way or otherwise you will get the H for HH. So
depending on how you $a , the you could do ^(H|V|P|BI|B)$ or if if could be a space or
some other character,
Peter Guzis wrote:
3) Use Win32::AdvNotify if you can find it
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
Be careful on this path, since the author is not around any more ( disappeared
or at least I have never heard what happened to him). I use it but it is a very static
Olaf Seywald wrote:
Hello,
I want to find (like in unix) files with the complete path. How can
I do this.
Here is a starting portion for you:
#!perl -w
use File::Find;
# calls wanted() for each file found
find(\wanted, 'topdirectoryyouwanttostartat');
sub wanted
{
# check to
Gregory, Carlton wrote:
Good Day All,
I was wondering if anyone has previously run a Perl script that
hides the STDIN from being printed to the STDOUT (console window)
while typing?
As in when getting prompted for a password.
Is there a Console module maybe Win32::Console?
You might try:
system("secondapp $switches \"$filelist[$i]\"")
which should make the second argument the filename regardless of whether
it has spaces or not.
Wags ;)
-Original Message-From: Steve
[mailto:[EMAIL PROTECTED]]Sent: Saturday, February 15, 2003
09:43To:
Barlow, Neil wrote:
Hi experts,
I am trying to write an inbox monitoring script that will monitor an
inbox on exchange and alert if there are any new mails.
I have been looking at Mail::POP3Client and Mail::POP3Client and these
modules do successfully connect but the count and delete
I had one using File::Find. The only thing it does not
do is create new directory in the base directory. I made up a folder name
called junker(change to what youneed)and created that.
Hopefully a starting point.
#!perl -w
use File::Find;$diff = 0;get_time();
my $MyStartTime = sprintf
Title: Convert int to bitstring
Here is one using printf and you could use
sprintf:
$_ = "255.255.255.224";
foreach ( split(/\./, $_ ) ) { printf "%b\n",
$_;}
Output:
1110
Wags ;)
-Original Message-From: Bullock, Howard A.
[mailto:[EMAIL
uncertain how you were getting the data, but here is one shot:
my @MyData = qw(4.0.0.10 4.0.0.9 4.0.1.0);
foreach my $MyKey(sort {$b-[1] = $a-[1] ||
$b-[2] = $a-[2] ||
$b-[3] = $a-[3] ||
$b-[4] = $a-[4] } map{[ $_ ,
to be a common problem
Any idea how to make ActivePerl set this on install? Maybe it should be put
into the source tree?
Josh Zeckser
Digitizing
[EMAIL PROTECTED]
503-419-5036
http://www.nobeltec.com
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL
Title: Regexp with 0
Change to an if:
if ( CARACTER[$i] =~ /^(a|b|1|0)/g;
) {
#true
}else {
# false
}
Wags ;)
-Original Message-From: "Muñoz O, Normann (Valparaíso)" [mailto:[EMAIL PROTECTED]]Sent: Friday, September 06, 2002 14:36To:
[EMAIL PROTECTED]Subject: Regexp
65 matches
Mail list logo
