Hmmm...Both replies haven't helped, I didn't understand Bruno's at all!
(sorry Bruno).
Maybe I should include a bit more of what I'm doing. My buttons are defined
thusly...
use Tk;
my $save = $frame - Button (
-text = Save,
-command = \ftp,
)- pack ();
my $exit = $frame - Button (
-text
Hi All,
I need to write a script to produce a line graph (quick and
dirty to prove a point)!
Can anybody recommend the best module to use?
Many thanks,
Ian.
From: Ian Robertson [mailto:[EMAIL PROTECTED]]
Subject: Making a line graph
I need to write a script to produce a line graph
(quick and dirty to prove a point)!
Can anybody recommend the best module to use?
The Chart module offers a quick interface.
C-.
CODE
use strict;
use
Chuck,
This is fantastic, thanks so much for your efforts!
I really appreciate the help.
Ian.
-Original Message-
From: Charbeneau, Chuck [mailto:[EMAIL PROTECTED]]
Sent: 04 December 2002 14:32
To: 'Ian Robertson'; [EMAIL PROTECTED]
Subject: RE: Making a line graph
From: Ian
Hi all, can someone point me in the correct direction for invoking help
files from within a Perl TK application running on Microsoft Windows 98 on
up to 2000?
People are asking for online help files in my perl apps like they have in
their other applications, and I cannot find what I need to do.
Hey everyone,
I have a string of data that I am parsing that looks like this:
# Replace all of the apostrophed days of week
if ($text =~ s/(Sunday's)|(Sunday's Games)/)
{
$day = Sunday;
$text =~ s/(Sunday's)|(Sunday's Games)//;
Hey everyone,
I have a string of data that I am parsing that looks like this:
# Replace all of the apostrophed days of week
if ($text =~ s/(Sunday's)|(Sunday's Games)/)
{
$day = Sunday;
$text =~ s/(Sunday's)|(Sunday's
Burak Gürsoy [EMAIL PROTECTED] wrote:
umm... did you read my message?
wantarray is 'exactly' what you want
Second the motion. In fact, Last night I spent a little time writing a
rebuttal, but then I tried it, and you're exactly right. I figured this
would be the last word, but should have
Hi,
I have just started to code up a subroutine to
return the path only from a complete path to a file. This must the the 3rd time
in two months as I have mislaid the routine on my HD and searching for it would
probably take longer than the coding.
When writing this routine, I always seem
The code:
while () {
$day = '';
print Before: $_;
s/(Monday|Tuesday|Wednesday|Thursday|Friday|
Saturday|Sunday)'s(\s+Games)?//x and $day = $1;
print After: $_;
print Day = '$day'\n;
}
The test:
C:\perl trw.tmp
Yesterday's Games were boring
Before: Yesterday's
I'm sure there are more elegant ways to do this, and I'm sure they'll be
coming through the list shortly, but here's an option:
my @days =('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday','Saturday');
foreach my $text(@days) {
$text =~ s/day/day\'s Games/;
}
-
Scot Robnett
- Original Message -
From: Matthew Greenberg [EMAIL PROTECTED]
I was wondering if it is possible to change the tk icon in focus to a
user defined image. If so, how?
I'm not sure what you mean by 'tk icon', but if you want to change the
properties of a widget when it comes into
Neil,
This is a little sub that I rolled up to provide the path,
filename, and extension:
sub Fparse($){ local $_ =
shift; my ($Delim, $Fp, $Fn, $Fe, $Pos1,
$Pos2);
# Check whether the filename contains
forward or backward slashes. $Delim = (index($_,'/')
-1) ? '/' : '\\';
# Find
Title: Message
Try
File::Basename and you won't have to reinvent the wheel.
-Original Message-From: Neil
[mailto:[EMAIL PROTECTED]] Sent: Wednesday, December 04, 2002
9:48 AMTo:
[EMAIL PROTECTED]Subject: perl-win32-users
- Best way to return a path to a file
Edwards, Mark (CXO) wrote:
Try File::Basename and you won't have to reinvent the wheel.
-Original Message-
From: Neil [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, December 04, 2002 9:48 AM
To: [EMAIL PROTECTED]
Subject: perl-win32-users - Best way to return a path to a
15 matches
Mail list logo