>-Original Message-
>From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-
>users-boun...@listserv.activestate.com] On Behalf Of Greg
VisionInfosoft
>Sent: Friday, March 15, 2013 14:12
>To: Perl-Win32-Users@listserv.ActiveState.com
>Subject: 'moving' an activeperl ins
>-Original Message-
>From: Jan Dubois [mailto:j...@activestate.com]
>Sent: Monday, July 25, 2011 12:24
>To: 'Wagner, David --- Sr Programmer Analyst --- CFS'; perl-win32-
>us...@listserv.activestate.com
>Cc: Wagner, David --- Sr Programmer Analyst --- CFS
>
I got some code from a reply I found on Perl Monks and brought
over to my Desktop and ran the code. It does what I am after, BUT I do
not want the default inbox, but another inbox.
The code for the default inbox is:
my $folder = $namespace->GetDefaultFolder(olFold
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Greg Aiken
Sent: Monday, October 18, 2010 15:53
To: perl-win32-users@listserv.activestate.com
Subject: looking for amine's 'MemMap' module for Win32 x86 Perl version
5.8
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 does
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 PROTECTED]Sub
[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
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 t
[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
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, 2
[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($i
[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
> pr
[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
-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 a
[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
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 hetawa
[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 -rightba
[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 actu
[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
[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 ru
[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
[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 ca
[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) {
[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 t
[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 functi
[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 help
[EMAIL PROTECTED] wrote:
> Hello, all!
>
> Is there any serious usage of Perl for Windows?
>
> Here, in Moscow, I know quite few programmers who used to develop
> using Perl (under UNIX). And I doubt they still do.
>
> As for me, I find Perl quite handy and useful. And what they've done
> in PD
[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 wind
[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 inserti
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: Z
[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
[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
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: Wedn
[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 ju
[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($seq
[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
[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
$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 machin
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 or
[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" ],
>>
[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 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 an
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
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 () {
if ($_ =~ /$var/i) {
print $_ . " matches\
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
[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
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 minu
[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 s
[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 dat
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
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 proc
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
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
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
en
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
{
# c
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:4
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 c
Howard Maher wrote:
> I am getting inconsistent results when my perl scripts hit a ctrl-z
> character (old DOS eof marker) in various text files that I am
> reading.
>
> Sometimes Perl skips to a seemingly random spot further in the file
> (very unexpected) and continues reading in lines, and th
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 you need) and created that.
Hopefully a starting point.
#!perl -w
use File::Find;$diff = 0;get_time();
my $MyStartTime =
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]
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:[
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:
Title: RE: Weird behavior of this mailing list
Running Outlook + exchange also.
Wags ;)
-Original Message-From: Peter Eisengrein
[mailto:[EMAIL PROTECTED]]Sent: Thursday, May 02, 2002
10:33To: 'Harikrishnan Bhaskaran';
'[EMAIL PROTECTED]'Subject: RE: Weird
behavior o
Title: Question
When you use double guotes, then what perl sees
in
, "c:\text1.txt" is c:text1.txt vs c:\text1.txt
You need to use double slashes("c:\\text1.txt", single quotes then it won't do a
translation, so 'c:\text1.txt' would be correct or you can change the b
Let the perl do the work. Do a search once
#!perl -w
use strict;
my $string="some text here 00 and some more here";
# the zeros start at 25
my @integers = (1, 12, 123, 1234, 12345, 123456, 1234567, 12345678,
123456789, 1234567890);
my $first ;
my $last ;
if ( $string =~ /^(.+)\d{1
prompt and still after the save and
coming back into ppm, it is all gone. I don't see an error message or anything.
Just continued to be baffled??
Wags ;)
-Original Message-
From: Wagner-David
Sent: Friday, March 15, 2002 09:38
To: 'Edward G. Orton'; 'Per
Yes. I did set save.
Wags ;)
-Original Message-
From: Edward G. Orton [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 15, 2002 09:35
To: Wagner-David; 'Perl Win32'
Subject: Re: Weird problems w/ PPM occuring
- Original Message -----
From: "Wagner-David&quo
ppm and type set it is as in the
original email.
Just some more info.
Wags ;)
-Original Message-
From: Wagner-David
Sent: Friday, March 15, 2002 09:25
To: 'Perl Win32'
Subject: Weird problems w/ PPM occuring
I did a verify yesterday and did a load of so
I did a verify yesterday and did a load of some modules which needed to be
updated. Now each time I go into PPM all my set info is gone. I have no repositories,
etc.
I am running w2k, AS Build 623 5.6.0 I know it is older, but it does what is
needed for my work. I did not upda
I haven't tried it as a service, though I have been using it for about 5
months on a quiet workstation. I find if I don't get all of my processes running
first, it will cause some of the processes (not all) to not start. I have to stop my
script and after everything is up and running,
Nice. Really!
Wags ;)
-Original Message-
From: dolljunkie [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002 11:09
To: [EMAIL PROTECTED]
Subject: Re: Regex Help Please!
A less elegant (perhaps) solution, but effective, no matter how many rows /
values:
while(<>) {
7;; [EMAIL PROTECTED]
Subject: RE: Regex Help Please!
Works but not if you have more or fewer than 2 values in a row.
Do you?
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> Wagner-David
> Sent: Thursday, January 10, 2002 1:31 PM
>
Here is a simplistic approach. May want more edits, but is a starting place.
Placing the data for testing under DATA:
while ( ) {
chomp;
next if ( /^\s*$/ ); # bypass blank lines
if ( /^ (.+) <\/v> (.+) <\/v><\/row>/ ) {
printf "%-s, %-s, %-s, %-s\n", $1, $2, $
>From the Cookbook:
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
Pass it the number and it will pass back a comma delimited number.
Wags ;)
-Original Message-
From: Dirk Bremer [mailto:[EMAIL PROTECTED]]
Se
I apologize to the list for not being clear. When you view a problem from a
certain perspective, you give what you think is clear and in this case it was not.
What I wanted was given date: 12/1/01 and new date, say: 1/2/02, would give 1.
If it had been 12/31/01, then zero. Like
Here is a start:
if the needs to numeric and the format stated, then change the
s/^(\d+)(\d{4})(\d{5})$/$1-$2-$3/ to
if ( s/^(\d+)(\d{4})(\d{5})$/$1-$2-$3/ ) {
}else {
#error of sometype
}
#!perl -w
while ( ) {
chomp;
s/^(\d+)(\d{4})(\d
Hashes by their very nature have no defined way in which you pull them out. I
know that on one of the lists there was some type of module which would tie the keys
to how they were inputted. Unforunately I don't have it. Depending on what you are
trying to do, you could use an array wh
If after you find a restriction and want to get out, then use:
last;
Wags ;)
-Original Message-
From: Mark Remesnitskiy [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 12:30
To: [EMAIL PROTECTED]
Subject: How to go out from for loop if found so
Here is a shot using map.
Wags ;)
=
#!perl -w
foreach my $MyKey (sort {$a->[2] cmp $b->[2] || $a->[3] cmp $b->[3]}
map{ [$_, split(/\|/,$_)]} ) {
printf "%-s", $MyKey->[0];
}
__DATA__
Here is one way:
printf "%7.2f%-s\n", ( ($MyNum/$MyDen)*100 ), '%';
output:
Please enter numerator: 5
Please enter denominator: 10
50.00%
Please enter numerator: 34
Please enter denominator: 450
7.56%
Wags ;)
-Original Message-
From: Mark Bergeron [mailto:[EMAIL PROTECTED]]
Sent
Here is one shot
while ( /\s(\S+@\S+)\s/g ) {
print "$1\n" ;
}
Output:
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-Original Message-
From: BMA TRADING ltd. [mailto:[EMAIL PROTECTED]]
Sent: Saturday, April 28, 2001 10:04
To: [EMAIL PROTECTED]
Subject: How to find the same string ?
Hi.
Is
As part of the sort process which uses a,b for comparsion, you switch to b,a
that is:
Asending: Descending:
$a <=> $b $b <=> $a
If desire is for alphanumeric, then use cmp in place of <=>
Wags ;)
-Original Message-
From: Walsh, Keith [mailto:
I am processing files to re-write in PDF. I am running through the
files, but they have the setup where it wants you to open in read only and
asks to open read only unless you need to update.
Can I do this in OLE and get it to open readonly?
Thanks.
Wa
I am trying to help another group within our company to convert a
large number of Excel files to PDF. I tried to record a macro to see the
variables I would go through and translate into Perl. When I select from
Menu 'Create Adobe PDF...', nothing shows up in the macro.
So, how d
If only concerned about cr/lf then chomp($value) will remove if there
otherwise will leave alone.
Also could do tr/.;'<>// Add others you want to truly remove non alpha
numeric values.
Wags ;)
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March
File::stat is placing the output into $dev as an anonymous array I believe.
If I access your data as
foreach ( @$dev ) {
printf "%-s;", $_;
}
I think the above is giving you the data you want.
Wags ;)
> -Original Message-
> From: Riva [mailto:[EMAIL PROTECTED]]
> S
What you getting is out of the first 'if' where you find 'sticky
tag' and fld 3 is NOT EQUAL to (none) then you are placing in stickytag what
is in fld 3 and then concatenating the value into stickytags{$FileName}.
This is not an array, but a HASH.
What would be helpful is the d
Since you can't select and copy from the address window, is there a
way using OLE to look for a particular email and read its contents and
display, so you can copy w/o having to write it down?
Thanks.
Wags ;)
___
Perl-Win32-Users maili
You can set it, but if you know about perl, then they can unset it
also at any point in their script.
Just FYI.
Wags ;)
-Original Message-
From: Bennett Haselton [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 02, 2001 10:23
To: [EMAIL PROTECTED]
Subject: RE: making a scr
It is not part of the auto install from AS.
you can install using ppm:
ppm install Mail-Sendmail
The current status of Modules available and how installed is at
http://www.activestate.com/Products/ActivePerl/status.html
-Original Message-
From: Sharon Tiroff [mailto:[EMAIL PROTECTED]]
I tried this and it seemed to work:
my $InputLine = '(! SUBSTR(DB.USER1,2,5)="9") .AND.
(LEFT(DB.USER1,1)<"1") .AND. (ALLTRIM(DB.OUNCEWT)>"2")';
my $InputLine1 = '(! SUjSTR(DB.USER1,2,5)="9") .AND.
(LEFT(DB.USER1,1)<"1") .AND. (ALLTRIM(DB.OUNCEWT)>"2")';
my $Str = '(! SUBSTR(DB.USER1,2,5)
1 - 100 of 101 matches
Mail list logo
