r the next ten loops, print a backspace-dash, next ten - print a
backspace-back-slash, etc, etc. So they have a little spinner going? (just
like the good ol' days =)
!c
===
Discreet Packaging: www.dronec
o use methods in it. That way you can
initialize any variables you need before you need them.
!c
=======
Discreet Packaging: www.dronecolony.com
C. Church
===
___
Perl-Win32-Users mailing lis
elements.
!c
===
Discreet Packaging: www.dronecolony.com
C. Church
===
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
x27;,'for11');
foreach my $str (@strs) {
my $ma = "didn't";
$ma = "did" if($str =~ /(?:b|t|be|ma)r[0-9]{2}/);
print("String $str $ma match the RE\n");
}
Prints the following:
C:\source\crap>perl ormatch.pl
String mar55 did m
time "%a %b %e %H:%M:%S %Y", localtime;"
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
ger!
256.0 : Is Integer!
39684..5 : Is NOT Integer!
56.35 : Is NOT Integer!
fooString : Is NOT Integer!
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
t; 4 },
'two' => { 'order' => 2 },
'three' => { 'order' => 1 },
'four' => { 'order' => 3 }
);
foreach my $key (sort { $hash{$a}{'order'} <=> $hash{$b}{'order'} }
keys(%hash) ) {
print(&q
in windows, but you'll need libpcap. See Net::Pcap on
CPAN.
As for writing raw data to the ethernet interface, can't help ya. Never
tried to subvert the kernel, probably wouldn't reccomend it. Sounds a bit
like blackhat stuff to me, easy in C, might not want to talk too loudly
abou
irectory $dir -> $!\n");
return(undef);
}
# return list of subdirs.
return(@output);
}
Enjoy.
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
#x27;;
foreach (0..7) {
# get the 1-bit value from the current position, bit $_
my $cur_val = vec($vec,$_,1);
$bit_str .= $cur_val;
print("In Value $value, Bit $_ is: $cur_val\n");
}
print("\tThe Whole Bit Range for $value i
; . ref($arg) . "\n";
}
my $object = IO::File->new();
my $hRef = { 'something' => 'new' };
my $aRef = [ 'foo','bar' ];
my $scalar = 'something';
my $scalRef = \$scalar;
my $subRef = sub { print "Foo\n"; };
print_type($o
properties of a widget when it comes into focus, perldoc Tk::bind
e.g.:
$imgWig->bind('' => sub { $imgWig->configure(...); });
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-U
ackground to turn a specific color when disabled,
look at the supported standard options for the Entry widget.
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
url = "http://mysite.com/refers${month}02.html";;
This will disambiguate the variable name from the rest of the string.
!c
C. Church
http://www.digitalKOMA.com/church/
http://www.DroneColony.com/
___
Perl-Win32-Users mailing list
[EMA
ime);
vs.
my $var = localtime(time);
If you run both, you'll notice that the first example simply gets the first
element of the array that would be returned by localtime(). The second
example displays the normal scalar behavior of localtime()
- Original Message -
From: "Michael D. Smith" <[EMAIL PROTECTED]>
> What concerns me is the word "only" in those titles, and the fact that the
> server, or my browser, seems to be trying to prevent me from downloading
> from that page titled "5xx builds only."
>
> I right clicked, used
- Original Message -
From: "Chris Anderson" <[EMAIL PROTECTED]>
> And yes, he has tried forward slashes, versus backward slashes
> to no avail.
>
> Win32::Process::Create($ProcessObj,
>'c:\\windows\\system32\\rsh.exe',
>"rsh 213.165.192.242 -l intercable sh accoun
On another point, I forgot to mention: if you're using mixed data in your
output file, you should (that is, -have to-, unless you're brave) *still*
use pack and unpack(), especially if you're reading in mixed data.
For example, if the input file contained the following elements:
<8 ascii charact
- Original Message -
From: "Haimov, Eugene" <[EMAIL PROTECTED]>
> Use "pack()" function on $currentdate,
> then syswrite its result.
-Original Message-
> From: Michele Knight [mailto:[EMAIL PROTECTED]]
> Thanks. I got the binary numbers correctly and when I try to write that
>
Beating the fork() horse to death...Matthew,
I doubt you'll be able to get 64,128,256 processes running at once on
any Win32 box. Remember that when you fork(), you're spawning another perl
process, running the same script.
Think of it like this:
When you fork, the script you are currently
- Original Message -
From: "smackdab smackdab" <[EMAIL PROTECTED]>
> I have looked at open and pipe, but it seems like it is going to call
> fork(), which I am avoiding on Win32...
>
> What is the best way to handle this? Is this one of the things that Win32
Firstly, you can feel pret
John,
Try using the following,
instead, and see if you get better results:
use File::DosGlob qw/GLOBAL_glob/;
...
$filename = '*.*';
my @list = glob($filename);
!c
- Original Message -
From:
[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, May 0
Hello! I was wondering if anyone on the list with knowledge of XS can help
me figure out where I'm going wrong with attempting to pass a reference to a
subroutine/function written in perl to an XS function I'm writing. Here's
the gist:
I have a routine, say 'myFunc', that expects a pointer to a
- Original Message -
From: "Carter A. Thompson" <[EMAIL PROTECTED]>
> print FH "some string\n";# This prints to the logfile
> $text->insert('end; "some string\n");# This prints to the text widget
>
> system("cat foobar.txt");
>
> Now, how to I get the output f
- Original Message -
From: "Peter Eisengrein" <[EMAIL PROTECTED]>
To: "'Carl Jolley'" <[EMAIL PROTECTED]>
Cc: "Perl-Win32-Users Mailing List (E-mail)"
<[EMAIL PROTECTED]>
Sent: Tuesday, March 19, 2002 4:37 PM
Subject: RE: multiline parse
> I shouldn't have been so vague, I suppose, but
Dax,
SPI_SETMOUSE and SPIF_SENDCHANGE are constants, not literal values, so
they shouldn't be in quotes. Also, they aren't defined by perl, in any way,
unless you've somehow defined them yourself, i.e.:
# real values, as defined by winuser.h
use constant SPI_SETMOUSE => 4;
use constant
- Original Message -
From: <[EMAIL PROTECTED]>
> I'm looking for a directory browser dialog that I can use with Tk.
I
> have found a *file* browser (getOpenFile in standard Tk distribution) but
> need something with the a similar "Windows" look to browse for directories
> only. Di
- Original Message -
From: "Andrew Wax" <[EMAIL PROTECTED]>
When the perl script is done I would like to bring up a different web page -
let's say next.htm.
Andrew, when you submit a form via CGI (I'm assuming that's what you mean by
clicking on a button), the browser displays the output
> Semi-Off topic question. What's the advantage of an
> 'anonymous' sub? You still have to call it by name,
> and add the &$, right?
I like to use them in places where the sub-routine isn't needed by other
subs/methods (i.e. has no need for global declaration and can be GC'd when
the sub exits
> What is the best method of encoding the html. It
> seems that the problem is double quotes but I'd rather
> have a more robust solution than just handeling the
> quotes.
>
> any suggestions?
(this may not be the 'best' method, but...)
Try:
# warning: untested!
# an anonymous subref that
- Original Message -
From: "Carl Jolley" <[EMAIL PROTECTED]>
> What do you want the driver to do? If the drive is writable you should
> be able to open an output file and use print to write to it. I'd be
> willing to bet that if you have a writable CD on a PC the driver
> was installed w
31 matches
Mail list logo
