Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Problem with Tk
# this is an example script #!perl -W use strict; use Tk; my $safe=0; sub newm { if ($safe==0) { $safe=1; my $newm=new MainWindow; my $but=$newm->Button( -command=>sub{$safe=0;$newm->destroy;}, -text=>'OK2', )->pack; } } my $main=new MainWindow; my $but1=$main->Button(... -
IO::Socket::INET sender receiver prob (testing local)
Im having problem with this the error is on the receiver cannot print sockets "Use of uninitialized value in print at D:\re.pl line 18, <GEN1> line 1." please help me #!perl -w # sender use IO::Socket; &comunicate; sub comunicate { print "Mes :"; my $message = <STDIN>... -
Question with time calculation
I know that $time=localtime(time); print $time; it works and prints the entire time , date ...... 1- I would to know how to calculate milliseconds 2- And how to calculate the time lenght of a function in milliseconds (cant seem to quite get it right!) ex: file scan of entire hard drive (the... -
Here is my question. I dont want t
Please help me. I dont want to go through this. $rep=<stdin>; chomp $rep; $rep=~tr/Yy/1/; if ($reponse==1) { } I would like to know how to make the script accept only "Y" as its answer. I've been told perl does not recognize letters. I've heard it can be done by something like... -
Hexadecimal value
Does anyone know where I can get a list of hexadecimal values for every character?? ex: a = 0x23 A = 0xb1 and so... This will be greatly appreciated! Knowledge is the first step to Greatness!!!
