Perl Forum

Hi, I am writing a very simple script that should return all subdirectories on a given path (non recursively, so just first level). This is the sub that I have for doing this but it gives very strange results: sub FindFiles {

Hi all, I'm trying to send chars to the current console (currently having cursor focus) - /dev/tty0 - in my program by: my $st = 'K' my $ri = 'L' my $ng = 'J' open(TTY, ">/dev/tty0"); ioctl(TTY, &TIOCSTI, $st);

Hi all, I was wondering if you could help out with this problem that I am having. What I am trying to do is detect keyboard input in a while loop without halting/pausing the loop until the key is pressed (without hitting return). I looked at serveral faq's on the net and installed the cspan readkey module and neither seems to work most likey...

test

Inserting Line Number -------------------------------------------------------------------------------- I would like to insert line numbers for all the files in a directory. So if a directory contains files like foo.c, foo.c1, foo.c2, foo.c3, foo.c4, I am trying to see and choose one of the numbers to process it. 1. foo.c1

Hi All, I want to send value of a variable (string of characters) from my perl program to an actually active window (in X Windows) with a blanking cursor (as if value of that variable was typed on keyboard). Can you tell me, how to do this in the simplest way?? Thanks, Keeper

Could someone help me on how to remove javascript tag from HTML file by perl, such as <script language='javascript'> something </script> I want to remove two script tags and something inside. Thanks for your help.

I'm trying to get CPAN or, preferably CPANPLUS working on a dual-CPU FreeBSD 4.8 server (with plenty of free memory), and have ran into a problem that I don't appear to resolve. Either of the utilities experiences a core dump during it's operation: Output from CPAN: --- cpan shell -- CPAN exploration and modules installation (v1.61)...

Which would be a more useful language to learn, Smalltalk or Pearl? Learning curves any different? Thanks!

Is there a better/simpler way than this? use POSIX ('strftime'); my $dateCreated = strftime "%b %d, %Y %H:%M", localtime ((stat("c:\\test.txt"))); How would I go about displaying the output in this format: 20031105 14:00? Any advice of links would be appreciated. Thanks in advance -Chris

Does anyone know or have a simple workaround for alarm for win boxes? Thanks Hal -- "The glory is not in never failing, but in rising every time you fail."

I am trying to check if notepad is running by doing kill(0, $notepad_pid). While notepad is up and runnig the code returns 1 as it should. Then, I close notepad manually, but kill(0, $notepad_pid) still returns 1. Here is my sample code: $notepad_pid=$ARGV; for($i=1;$i<100;$i++) { $tst=kill(0,$notepad_pid);

I am using the following code to start a process on a networked XP machine. This all works really well but the process created is invisible to the user (only visible in the Task Manager - Processes tab). I need this process to be visible. I have searched for the answers but have come to the conclusion that it is either a) impossible or b)...

Hiya I want to create 2 "simple" perl scripts, One of them takes a string input on the Com port and then sends it via the internet to a website, The website has a Cgi-Bin and this recieves the string and then either puts it in to html or txt format which is saved on the website I know this is a client and server application its just...

Hi I search algorithme to convert XY into Latitude/longitude to use customer data with GPS... thk in advance.

Hi, I am running Apache 1.3.27 over win2k...and my scripting language is perl... problem is that I have written a code in VB which lets the user connect to the webserver using HTTPS ..the authorization is alright..but when I try to upload a base64 encoded file...the response from the webserver is error 414, URI too long...I dont know...

Hello, I am working on creating a perl implementatin of quick sort, I know that there is a perl sort function but I am doing this so that I can later sort a vec based on the information in another vec. I have tried my program with: perl v5.8.0 for sun4-solaris and perl v5.6.1 for MSWin32-x86-multithread. I wrote an implementation of...

Hi I have some troubles with a long system() sub-process (from 30 sec to 30 min) called from a CGI. My web page have to wait the end of the system() call before finishing it's loadding but this is not whats appen. The web page is waiting for a couple of minutes but continue and finish it's loadding before the end of program called by the...

How to modify a list in a subfunction? E.g. I want to pass a list as an argument, and append it another list? Something like sub append { my $listRef = shift; my @list = @$listref; @list = (@list, @anotherlist); return \@list;

Hi Guys, I am summarizing this problem with a example. Appreciate if someone could help me. Say, I have a wrapper shell script which calls a perl program. I want to pass the command line options to this perl program. In the Wrapper (TCSH) script, I have something like this set TEMP = "x y z"; mytest.pl -t ${TEMP};

hi, i have different perl versions installed on my computer (Linux) and like to tell my webserver apache, that he can also upgrade/use from perl v. 5.6 to Perl v. 5.8...i'm sorry i can't find the right location, where i can change the path of the new perl version... best regards Thomas

test 123

I have data which is in this format: ### data ### area=1101 home=003 mzer=00020 mzec=101 pmpr=00000 pmpc=102 bnsr=00000 bnsc=103

Hi! I have to split a string with a pattern which contains sometimes chars like + \ (the code is needed in an interpreter, written in Perl, of my own scripting language, so I never know the pattern exactly). split(/$pattern/, $string); It works well most of all time, but if the pattern is + the execution of the program stops and perl...

Hello, I am having a problem w/SendMail reporting: " No recipient addresses found in header". Funny thing is though, I properly recieve the email message. Thanks for your help. -jim