mkdir() will not create nested folders if any of the higher level folders
are not already existing.
so if C:\sams_db_bkup doesn't exist, mkdir will not create 'export'.
You'll want to take a look at the File::Path module documentation as that
will offer some easy path building functions that
Title: CGI and printing pages
I don't understand
to well what your asking to do but, based on the Subject line of your post, I
would suggest taking a look at the CGI module and it's
documentation.
If could give a
little more detail in your question, might be able to provide more specific
use Win32::GUI;
use Win32;
Win32::MsgBox(This is a test, 0 | 64, This is the msgBox Title);
___
0 - display only the OK button
1 - display OK and Cancel buttons
2 - display Abort, Retry, and Ignore buttons
3 - display Yes, No, and Cancel buttons
4 - display Yes and No
Posted this earlier, perhaps it was missed. Still awaiting a response.
seems www.imagemagick.org is not up and running past few days...did it move?
TIA
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Friday, January 24, 2003 9:17 AM
To:
If it's a richedit control, then I would have to assume that there is an
activeX thingy running it in IE.
I'm almost 100% sure that this is not an html element.
Check the win32::Ole::Browser (for some reason it's not willing to run on my
box at the moment). I was playing around about 6 months
Found what I was talking about.
object classid=clsid:3B7C8860-D78F-101B-B9B5-04021C009402 width=320
height=240
/object
placing that in an html file will add a richedit control 6.0 to the page.
Burak Gürsoy's e-mail is what your looking for though.
JY
-Original Message-
From: [EMAIL
Take a look at Image-Magick. One of the best modules out there for working
with images...I cannot say if it will do exactly what you are asking, as
I've never tried to make multi-page tiff files.
hth,
Joe
-Original Message-
From: [EMAIL PROTECTED]
Isn't the C Prompt usually c:\?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Joseph P. Discenza
Sent: Wednesday, September 11, 2002 9:30 AM
To: Barlow, Neil; 'Gould, Kevin';
[EMAIL PROTECTED]
Subject: RE: Regualr Expression Again...
Barlow, Neil
Personally, I like Process::Info.
Clear and to the point as to what it does.
Just my two copper into the basket
Joe
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Thomas R Wyant_III
Sent: Monday, August 26, 2002 7:56 AM
To: [EMAIL PROTECTED]
Subject:
Well, there is the
Win32::Console that you have with AS Perl. Just about everything you would
want to do is there. Building a Console wrapper around Win32::Console to
single out what functions you will be using often (and for building basic
interfaces) would be a day project...
HTH
Joe
Another GUI package out there for Perl is WxPerl
(http://wxperl.sourceforge.net/)
I've used Perl/Tk on Windows I don't like it. (haven't visited it lately to
see if there's any new stuff yet)
I've developed a full application with Win32::GUI which I like, but not
portable at all...bummer
So
I'd add the check for the garbage before I split, not sure if it would
really add any time to the program running but would, I think, reduce the
amount of checking needed after the split function.
next if(/value_garbage/g); # assuming value_garbage is the exact string.
or you can use:
while
Change all the or die to or LogSubroutineToRecordBadEmails();
and loop though $Lists.
But in doing so, it's no longer a list but it will stop the code from
bailing on bad e-mails.
in LogSubroutineToRecordBadEmails() I'd do something like:
sub LogSubroutineToRecordBadEmails
{
Hi Robert,
Just a guess but I see your missing a in your open statement...maybe just
a type-o in the e-mail to the list and is correct in your code.
open( FILEHANDLE, a:/filename ); # Missing ending
open( FILEHANDLE, a:/filename ) or warn \nI'm unable to open the file:
$string = "( A = (B= (D = 1) (P =1 ))
( F = (Y = 2 ) ( w = 3)) (B = (D = 3) ( P = 4)) )";
while($string =~
/\(\s*(\w+\s*\=\s*(?:\(\s*\w+\s*\=\s*\d+\s*\)\s*)+)\)/ig){
print "\n$1"; # just to print them. or push
@matches, $1; # push the matched into an array for later
use}print
Actually, flipping through the Effective Perl Programming book, I see
that there is an example of nested braces.
snip
from book:
$_ = "
Here are { nested {} {braces} }!";{my $c;
while(/([{}])/gc) { last unless ($c += {qw({ 1 }
-1)}-{$1}) 0 };}print substr substr($_, 0, pos()),
index($_,
or you can do this if you can just say any account past 30 day's (not a
calendar month):
my $current_time = time();
my ($mday, $mon, $year) = (localtime($current_time))[3..5];
my $startdate = sprintf %02u/%02u/%u, $mon + 1, $mday, $year + 1900;
my $past_due = $current_time * 60 * 60 * 24 * 30;
I'd suggest using Win32::GUI if your running on Win32 platforms.
I'd also suggest becoming familiar with win32::API.
There is a module that can import ActiveX but I'm not remembering the name
of it. A search in the Win32::GUI list at source forge for ActiveX should
bring it up.
When I last
This worked for me,
$a = 12345678904539;
@numbers = split(/(\d{2})/, $a);
$NewA = join(' ', @numbers);
print \nNew A: $NewA;
hth,
Joe Y.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
steve silvers
Sent: Monday, June 10, 2002 8:39 AM
To: [EMAIL
my $str1 =
/vobs/spifftest/.@@/HDX.LU/lineups/.@@/HDX.LU/hdx.lu@@/main/LATEST;
#my $str1 = /vobs/spifftest/lineups/hdx.lu;
my $FullName = ;
my $Name = ;
my $Version = ;
##
# I'm using | as the quote in place of / for
# the regex m// - m||
##
if($str1 =~
connecting to MSSQL 2000
but cannot remember the article...it was in one of the Linux periodicals about
2 months ago...I'll see if I can find it a bit later on...
And
I apologizeaboutmyresponse to the
question...
Joseph Youngquist.
-Original Message-From:
Hello Carter,
Try these suggestions:
my $dir = C:/tmp2;
CHANGE TO:
my $dir = C:\\tmp2;
my $member = $zip-addDirectory('$dir');
CHANGE TO:
my $member = $zip-addDirectory($dir);
OR:
my $member = $zip-addDirectory($dir);
I'm not familure at all with the package, but I think this will have you
Hey Thiago,
well, you wanna try this:
open(OUT, C:\\text1.txt) or die \nI've got issues! Like:$!;
Now to print or write to the file, you just need to use the
FileHandle OUT.. so,
print OUT Hello World!\n\nJack's Back!;
then be sure to close your file by;
close OUT;
It's been a bit since I worked with Perl/Tk but I recall the Toplevel
widget...
A toplevel is similar to a frame except that it is created as a top-level
window: its X parent is the root window of a screen rather than the logical
parent from its path name. The primary purpose of a toplevel is
Hello all, I got a question about changing the -bitmap= on a button...well
it even applies to a Label to.
my $Button = new Win32::GUI::Button(
-name = Preview,
-top = x,
-left = y,
-height =
;
}
print join(\n, @items);
HTH,
Ricky
-Original Message-
From: Joseph Youngquist
[mailto:[EMAIL PROTECTED]]
Sent: Monday 04 March 2002 3:23 PM
To: [EMAIL PROTECTED]
Subject: Regular Expression Question
Hello all, I hope some RegEx guru could answer why
this stops once
, Richard E.
Sent: Monday, March 04, 2002 3:32 PM
To: 'Joseph Youngquist'; [EMAIL PROTECTED]
Subject: RE: Regular Expression Question
I think that you may need to do this in a while loop:
my @items
while($text =~ m/your string here/g) {
push @items, $1;
}
print join(\n, @items);
HTH,
Ricky
Sorry I sent the old version of the regular expression...the correct one is:
m/\s+((?:[\w\d\-\~]{2,}[@|\.](?:[\w\d\-\~]{2,}\.?\@?)+))/g
This one gets stuff like [EMAIL PROTECTED]
Thanks again.
PS..all you web folk out there...stick this under your pillow :) handy
little RegEx..once its
Seeming as I've created a little stir, let me completely explain what I mean
when I said
In Python, what your shooting for is doable, but this isn't a python
question, it's a Perl question :)
Here is some Python code...(snippet from someone..I cannot recall who the
author was)
cast =
29 matches
Mail list logo
