Hi -
I am a bit confused about how to set $! from within an xs module. I have
searched perlxstut, perlxs, and perlguts without really understanding what
is involved. Can some one either point me to a module that sets $! or give
me a short description on how it is done?
Thanks!
an existing .ai file:
#!/usr/bin/perl
use strict;
use warnings FATAL = all;
use Mac::Glue qw( :all );
my $ill = Mac::Glue::-new( Adobe Illustrator )
or die cannot get Illustrator: $^E\n;
my $file = video-test.ai;
$ill-open( $file, ERRORS = 1 );
yields:
rocky:test beau$ perl hello.pl
Adobe
the double quotes:
\\n\
works.
Beau;
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Thu, May 15, 2008 at 11:24 PM, sivasakthi [EMAIL PROTECTED] wrote:
Hi all,
How to comment Multiple lines in Perl?
Thanks,
Siva
=comment
like this
example
=cut
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
Hi -
From within a perl script, how can I deternine if STDxxx is from/to a pipe?
Aloha = Beau;
Hi -
I am new to international character encoding and how the various
encodings are handled in perl. After a day of reading, I'm asking for help.
I am downloading data from an international (French) web site. The
HTTP headers show that the pages I am downloading are encoded
in iso-8859-1. Most
On Tuesday 24 April 2007 02:07, Mumia W. wrote:
On 04/24/2007 03:06 AM, Jeff Pang wrote:
2007/4/24, Beau E. Cox [EMAIL PROTECTED]:
How do I get a proper conversion from iso-8859-1 to perl's internal
utf8?
[snipped]
I don't think it'll work in this case because \x99 doesn't seem
=~ /continue\s*=\s*(\d)/s ? $1 : 0;
close(FILE);
return ($delay, $continue);
}
Untested! Beware of typos.
--
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
, and if you
want to replace all and ' characters, try:
$Values-{text_field} =~ s/(?:|')/quot;/sg;
However, This does not seem to work. Is this right?
Also, I would like to replace the single quote '
Thanks
Rick
--
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED
, kill it, and examine the log. If you still cannot connect
to the port you want, post the log and we can (maybe) help
further.
--
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first
! :)
--
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
undefined instead of 0? Any ideas?
I am using perl 5.8.7 on Gentoo.
--
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Thanks - my stupid error.
On Sunday 22 January 2006 12:58 am, Xavier Noria wrote:
Beau E. Cox wrote:
I really thought I understood pack/unpack,
but this has me stumped. I can't find anything to
explain the operation of the following script
in the documentation:
use strict
( it works however ). While I'm at it, I also don't
know the meaning of life and what women are thinking... ;)
Can someone shed some light?
Aloha = Beau;
[EMAIL PROTECTED]
2005-12-10
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org
Hi beginners -
Aloha = Beau;
[EMAIL PROTECTED]
2005-12-10
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Hi beginners -
Aloha = Beau;
[EMAIL PROTECTED]
2005-12-10
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
is included in ActiveState Perl for Windows and is a snap
to install on
other OSs.
Good luck and have fun :)
Aloha = Beau;
[EMAIL PROTECTED]
2005-12-07
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
Aloha = Beau;
[EMAIL PROTECTED]
2005-12-05
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
;
}
}
}
Aloha = Beau;
[EMAIL PROTECTED]
2005-11-20
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
for arrays.
Aloha = Beau;
[EMAIL PROTECTED]
2005-11-16
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
structured language like C?
Because it's better! :)
Don't fight it - learn perl and you will be happy.
regards
Sastry
Aloha = Beau;
[EMAIL PROTECTED]
2005-11-15
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
know.
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-22
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-19
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/142 - Release Date: 10/18/2005
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-18
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
%ENV ) {
print $var=$ENV{$var}\n;
}
Read up on hashes good luck.
/G
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-13
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
keystrokes:
for my $var( sort keys %ENV ) {
print $var=$ENV{$var}\n;
}
Read up on hashes good luck.
/G
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-13
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org
know and I will
send it to you off-list.
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-14
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
in Perl?
As far as I know, No.
It's the way shells work...sorry.
Someone please correct me if I am wrong.
/G
http://www.varupiraten.se/
[snipped]
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-14
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
' );
3) Run perl Makefile.PL [n]make test ( look at all those warnings! )
4) cd t perl ftest.t ( NO warnings, right? )
This is an equal opportunity problem; it occurs on Windows ( ActivePerl ),
Cygwin, Linux.
All tests with current perl 5.8.7.
Aloha = Beau;
[EMAIL PROTECTED]
2005-10-13
On Sunday 27 June 2004 03:06 pm, lfm wrote:
hello ,beau
I have installed bugzilla on the windows, but failed on the linux!
where?
the perl module installation!
I download the perl module from cpan, tar them and
perl Makefile.PL
make
make test
make install
But some
slave.pl;
...
or backtics if you want to capture output from
the slave
my $slave_output = `perl slave.pl`;
In each case, check the return codes (see the
documentation).
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
select a module or modules you may need and step you through
the process.
Don't give up! You will be rewarded.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On Thursday 24 June 2004 11:09 pm, lfm wrote:
thank u
Beau
but i am stilled puzzled .
since it is a script language ,why not we write the *.pm directly and put
to the lib directory(or other place) .
I opened the *.pm and found there are only text .
so ,why we build ?
asp need build
On Friday 25 June 2004 04:30 am, u235sentinel wrote:
Beau E. Cox wrote:
On Thursday 24 June 2004 08:32 pm, Charlene Gentle wrote:
You can use the 'system' command:
##--master--
...
my $rc = system perl slave.pl;
...
Does this mean it runs in parallel with the parent Perl Program
On Sunday 13 June 2004 02:39 am, Jeff 'japhy' Pinyan wrote:
On Jun 10, Beau E. Cox said:
sub parse_words
{
my $line = shift;
my @words = ();
$_ = $line;
[snipped]
Thank you, japhy, and others who took the time to help me
fix my word parsing script I posted several weeks ago
tests.
It is prob not restrictive enough, but I use it only to
format my web pages with an email address href.
You should check CPAN also.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first
your scripts with:
use strict;
use warnings;
my $test= $ARGV[0]; # proper format
die nothing in array unless $test; # unless is easier to read
print $test, \n;# added newline
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
the size is easier than calculating the time taken for the download.
Any pointers would help.
thanks,
Radhika
Hi -
Look at the various timer methods in
Time::HiRes on CPAN. I am sure one of those
will work for you.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
and heavy-handed. I tried, and failed, to write one using a super-all-
in-one regex in a progressive matching /g while loop.
Does anyone want to help me find elegance?
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
-9\s]//sg;
# change non-nl whitespace to one space
s/[\t ]+/ /sg;
# seek to start, rewrite, and close
seek FP, 0, 0;
print FP $_;
close FP;
#
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
On Friday 28 May 2004 05:47 pm, John W. Krahn wrote:
Beau E. Cox wrote:
On Friday 28 May 2004 03:31 pm, Mandar Rahurkar wrote:
for(@cont) {
tr/A-Z/a-z/;
You forgot the 'g':
tr/A-Z/a-z/g;
tr/// doesn't have a /g option.
perldoc perlop
OK. I was thinking s///.
John
to
specify http proxies in a future release of Tie::Google ?
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
.pl
ev1.pl is package Embed::ev1_2epl
Variable $arg1 will not stay shared at (eval 1) line 13.
Variable $arg2 will not stay shared at (eval 1) line 13.
jack and jill
already compiled Embed::ev1_2epl
jack and jill
Sorry all, I know this is a bit much...
Aloha = Beau;
'persistent' perl package
On Thursday 06 May 2004 11:40 am, Perrin Harkins wrote:
On Thu, 2004-05-06 at 17:19, Beau E. Cox wrote:
But maybe I could explain the overall picture. I am trying to embed
'any' script (whthout modification) in perl; I use a perl package
(which is run via a c program) to maintain
wrong?
Thanks in Advance
Check the docs: the months go from 0..11 in localtime.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
$string;
}
When run, it returns:
before to_upper: hello
after to_upper: HELLO
after to_lower: HELLO
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On Friday 02 April 2004 07:04 am, Beau E. Cox wrote:
On Friday 02 April 2004 06:37 am, JupiterHost.Net wrote:
Hello List,
It just occurred to me that many Perl functions use $_ if not other
value is supplied. chomp for instance..., which is very handy...
If one wanted to write
( @fields ) {
$count += length $field;
}
print $count\n;
}
**
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
think you
can do something with W32::Console. Have a look at the
docs on CPAN (or is it a domain policy that you cannot install
CPAN modules?).
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
; # == continue
...
}
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
:
http://beaucox.com/mini-HOWTOs/win32-setup-mini-HOWTO.htm#perl_010
for installing perl, and:
http://beaucox.com/mini-HOWTOs/win32-setup-mini-HOWTO.htm#command_prompt_009
for setting up the command prompt.
Good luck, and be carefull, perl becomes addictive ;)
Aloha = Beau;
--
To unsubscribe, e
Hi -
Does anyone know where access to the perl special variables
($!, $@, $/, etc.) from c-code is documented? I can't seem
to find any mention in the perl pods (guts, call, api, etc.)?
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On Monday 29 December 2003 01:36 pm, Randy W. Sims wrote:
On 12/29/2003 4:54 PM, Beau E. Cox wrote:
Hi -
Does anyone know where access to the perl special variables
($!, $@, $/, etc.) from c-code is documented? I can't seem
to find any mention in the perl pods (guts, call, api, etc
of the piped input.
It doesn't work. I have tried to deactivate the pipe with:
close STDIN;
which works, but I can't seem to figure out how to reopen
STDIN to the keyboard device. Any hints?
Thanks,
Confused in Honolulu,
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED
On Saturday 20 December 2003 06:02 am, Steve Grazzini wrote:
On Dec 20, 2003, at 10:44 AM, Beau E. Cox wrote:
but I can't seem to figure out how to reopen STDIN to the
keyboard device. Any hints?
You could use:
open STDIN, '/dev/tty' or die open: /dev/tty: $!;
Or you could just
On Tuesday 25 November 2003 06:48 am, drieux wrote:
On Monday, Nov 24, 2003, at 15:32 US/Pacific, Beau E. Cox wrote:
[..]
I'm having trouble logging to syslog on my Linux (Sorcerer)
machine with perl 8.0.2 installed. This script logs nothing:
#!/usr/bin/perl
use strict;
use
');
closelog();
Removing the 'setlogsock' doesn't help; still a noop.
Writing the same thing in C using syslog(3) calls, everthing
works.
???
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Monday 24 November 2003 03:03 pm, david wrote:
Beau E. Cox wrote:
Hi -
I'm having trouble logging to syslog on my Linux (Sorcerer)
machine with perl 8.0.2 installed. This script logs nothing:
Oops - perl 5.8.2
[snipped]
beefed up the script to:
#!/usr/bin/perl
use strict;
use
::Syslog doesn't, but
I'm moving on.
Thanks Wiggins and dave for your input.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
does it offer if any, in these
type of programs.
TIA
Ned Cunningham
You folks should check out Perl/Tk - a complete GUI for perl
- from CPAN.
Aloha = Beau.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
whatsoever to do with
perl. Open a command window on your Win 98 system
and mimic what you are trying to do via perl.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Yes; that's what I was trying to say!
- Original Message -
From: Tim Johnson [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; Beau E. Cox [EMAIL PROTECTED]
Cc: Perl Beginners [EMAIL PROTECTED]
Sent: Wednesday, September 10, 2003 11:57 PM
Subject: RE: system() problem in win98
I think what he
docs.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
= Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi -
Numeric literals beginning with '0' are OCTAL:
\012 == 000 001 010 == 0x0a == decimal 10.
Aloha = Beau;
== please visit ==
http://beaucox.com = main site
http://howtos.beaucox.com = howtos
http://PPM.beaucox.com = perl PPMs
http://CPAN.beaucox.com = CPAN
== thank you ==
- Original
,
but why I get somthing like GLOB(0x162aca7) ??
Thanks in advise.
Try:
open my $fh, items/list.db;
-or-
open my $fh, items/list.db;
Aloha = Beau;
== please visit ==
http://beaucox.com = main site
http://howtos.beaucox.com = howtos
http://PPM.beaucox.com = perl PPMs
http://CPAN.beaucox.com = CPAN
test staing in $_ and
use regexs:
$_ = $string;
CASE: {
/match 1/ do {
...
}:
...
}
Aloha = Beau;
== please visit ==
http://beaucox.com = main site
http://howtos.beaucox.com = howtos
http://PPM.beaucox.com = perl PPMs
http://CPAN.beaucox.com = CPAN
== thank you ==
--
To unsubscribe, e
Hi -
I have misplaced my 'installed module version' script,
and being lazy today :) , could someone remind me
how to list the installed modules/versions present
on a system? Nothing fancy. just get me started, please, and I can flesh it
out from there...
Aloha = Beau;
== please visit ==
http
- Original Message -
From: SPENCERS [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Saturday, July 19, 2003 6:46 PM
Subject: RE: Inatalled modules
Here you are Beau,
#!/usr/bin/perl -w
# list all of the perl modules installed
use strict;
use
- Original Message -
From: Beau E. Cox [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, July 14, 2003 5:17 AM
Subject: Stopping File::Find
Hi -
Any way to stop File::Find's directory scanning
from the 'wanted' sucroutine? I would like to
curtail processing early for while
notepad
{
system 'notepad';
}
see: perldoc perlthtut
(or as an html file under your html/lib/Pod
directory in your perl install tree.)
You first try won't work:
exec = NEVER returns (overlays you with
notepad);
system = puts you into a wait till notepad finishes.
Aloha = Beau;
== please visit
- Original Message -
From: Steve Grazzini [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Monday, July 14, 2003 6:12 AM
Subject: Re: Stopping File::Find [SORTA RESOLVED]
[snipped]
sub wanted {
if (condition) {
$File::Find::prune
; not finding it means
the .c (.XS) sources in the module were not compiled.
Check that you have the c/c++ development tools
installed on your system (and your login has access
to them).
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
this before I fall back to substrings and
'eq'/'ne' compares (ugh).
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks Tim ans Shishir - Works!
Aloha = Beau;
- Original Message -
From: Tim Johnson [EMAIL PROTECTED]
To: 'Beau E. Cox' [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 5:30 AM
Subject: RE: Regex problem
Try this:
my $string = 'I love c++';
my $compare = 'some
- Original Message -
From: Jeff 'japhy' Pinyan [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 8:45 AM
Subject: Re: Regex problem
On Jun 25, Beau E. Cox said:
my $string = 'I love c++';
my $compare = 'some compare string
shooting match...
Any ideas, Beau Cox has been REALLY helpful but I
think I'm annoying him now... :)
Ben
Ben didn't you get this? Send to you abount 8 hrs ago:
Hi Ben -
If you still are working on your Perl-c/c++ project,
please refer to:
http://howtos.beaucox.com/win32-vc7
Makefile.PL, nmake, etc. without a compiler.
Not that it would actually work.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Yes. But you can code a more customized interface
using XS or Inline::C.
Aloha = Beau;
- Original Message -
From: NYIMI Jose (BMB) [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]; Jenda Krynicky [EMAIL PROTECTED];
[EMAIL PROTECTED]
Sent: Friday, June 20, 2003 1:27 AM
Subject: RE
else :)
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
- Original Message -
From: Ben Crane [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Wednesday, June 18, 2003 10:37 PM
Subject: Re: Accessing C/C++ Dlls using perl
Beau,
Thanx, I hunting the info down now, seems quite
complex. I'm wondering whether
- Original Message -
From: Ben Crane [EMAIL PROTECTED]
To: Beau E. Cox [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Wednesday, June 18, 2003 10:37 PM
Subject: Re: Accessing C/C++ Dlls using perl
Beau,
Thanx, I hunting the info down now, seems quite
complex. I'm wondering whether
I have recently built and tested Image::Magick module
for Windows ActiveState Perl 5.8.0 builds 804 and
higher. This module is built on ImageMagick version
5.5.7.
Details and full instructions are available at:
http://ppm.beaucox.com
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED
- Original Message -
From: Jenda Krynicky [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, June 19, 2003 2:41 AM
Subject: Re: html files for ppms
From: Beau E. Cox [EMAIL PROTECTED]
I have some custom html documentation I want to
include in a ppm for distribution. Where
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
,
including MAC. It works on rh9.
Aloha = Beau;
ifinfo
Description: Binary data
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
- Original Message -
From: John W. Krahn [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, June 19, 2003 8:42 AM
Subject: Re: How to retrieve a MAC address
Beau E. Cox wrote:
Attached is a small perl script (ifinfo) I wrote to parse
ifconfig. It gives most
module after reviewing XS
documentation, please let me know and I will send you
one.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
? Is there a standard
place? I can't seem to find the answers at ActiveState.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
??? Cool...fun project :)
Thank you anyway,
Ben Crane
Why not use rsync? It does what you want, is
fast, and has many useful features:
http://samba.org/rsync/
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
No, there is no way. You must write your prepended lines to a
new file and then append your old file, and, delste ( or
rename to a backup) your old file, and rename your new file back to the old
file. All easy to do with Perl.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
, and feel free to
pass on this, but I am going crazy trying
to understand what is happening.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
++;
}
Thanks
-Jay
Jay -
You need a regular expression. Also, where is $i initialized?
Try something lik this:
for (@LineFromFile) {
last if /^#Threshold/;
}
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
NOT use them for your own code.
perdoc -f sort
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ravi:
You and always execute your script by first specifying the
Perl executable:
/some/othet/perl/bin/perl script.pl
This completely bypasses the she-boom line in your
script.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
in an array is returned when
you access that array in 'scalar' cintext; there are
many ways to do this:
my $count = @fields;
print number of fields = $count\n;
printf number of fields = %d\n, scalar @fields;
etc, etc.
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
;
$result{'mongolian marmot'} = 1;
$result{'woodchuck'} = 6;
return %result;
}
#you then would call the subroutine and get the
#hash by calling is as in:
my %stuff = GetMarmots ();
print $_ = $stuff{$_}\n for (sort keys %stuff);
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL
Hi -
A little OT, but, with Perl runing under Linux,
is there any way to get the 'target' file name
of a 'soft' link? Or even determine a filename
is a 'soft' link? (By 'soft' I mean a link
created so: ln -s target link).
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED
missed that!
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
getting size for image $in: $warn);
return (0, 0);
}
my ($w, $h) = ($image-Get ('width'),
$image-Get ('height'));
$image = undef;
return ($w, $h);
/%perl
Aloha = Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
1 - 100 of 340 matches
Mail list logo