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 Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Search results for query: *
- Users: raider2001
- Order by date
-
Getting rid of the cmd window
Are you running the main process from a command window or a Perl/Tk widget? Anyways I have used "wPerl" with Perl/Tk to eliminate the command window for the main process. The "wPerl" file is available in ActiveState Perl package. To use it, just associate the shortcut for your Perl/Tk...- raider2001
- Post #4
- Forum: Perl
-
How to recognize an int or a float
Here's another way: sub VerifyInt($); $a = '88.0.5'; $R = VerifyInt($a); if ($R == 0) { print "$a is not a valid number \n"; } elsif ($R == 1) { print "$a is an integer\n"; } else { print "$a has a decimal point\n"; } sub VerifyInt($) { $Number = "@_"; $NumDecPoint++ while...- raider2001
- Post #5
- Forum: Perl
-
How to recognize an int or a float
How about using pattern matching? if ($a =~ /\./) { # $a has a decimal point } else { # $a is an integer }- raider2001
- Post #2
- Forum: Perl
-
Step through Array of Arrays with unknown Size
No need to know the sizes of the array. You can just use a foreach loop like this: @list1 = ("one", "two", "three"); @list2 = ("myList2"); @fooList = ([@list2], [@list1]); foreach $refarray (@fooList) { foreach $item (@{$refarray}) { print "$item\n"; } }- raider2001
- Post #2
- Forum: Perl
-
Perl TK Buttons Not Redrawing During Subroutine Exec.
The problem is that widget are normally just updating during idle times. To force the update, run $widget->update. Here is your code modified to add the updates. use strict; use warnings; use Tk; my $main = MainWindow->new; my $message = "Some text"; my $frame = $main->Frame; my $Label =...- raider2001
- Post #2
- Forum: Perl
-
Telnet question,
Don't have time to lookup what "TelnetMode => 0" does, but I suspect that may be part of the problem or your prompt doesn't match the default prompt. Here is a portion of a program I have that works for a Solaris machine. use Net::Telnet; my $host = "myhost"; my $user =...- raider2001
- Post #2
- Forum: Perl
-
How to write each word in a text file on a new line
The following should do the trick. Comments added for clarification. $file = "temp.txt"; $RecSep = $/; # Save input record separator undef($/); # Undefine input record separator open(F, $file) or die "Can't open $file: $!\n"; $contents = <F>; # Read all of file into a...- raider2001
- Post #2
- Forum: Perl
-
Regex push $1 help
nfaber, My mistake I put a backslash instead of a slash for the input record separator. It should be '$/'.- raider2001
- Post #4
- Forum: Perl
-
Regex push $1 help
By default the input record separator is a new line. So each time you read from a file, it reads one line at a time. But since you want to read data between 'DESCRIPTION' strings, you should redefine the input record separator to DESCRIPTION like this: my $filename =...- raider2001
- Post #2
- Forum: Perl
-
Problems with specific search in string
One way is to split the string into characters and count how many of each one. Here's an example: @strings = ("abcabc", "abcdabcd", "abcabcc", "abcabcb", "abc", "aaa", "abbccbcaaacc"); foreach $string (@strings) { @chars...- raider2001
- Post #2
- Forum: Perl
-
Custom sorting records by date (without SQL)
This is easy enough to do with sort. See the example below: @list = ("01/22/2000", "01/21/2001", "08/08/2000", "12/12/2000", "09/09/1999"); sub mysort() { @data1 = split ("/",$a); @data2 = split ("/",$b)...- raider2001
- Post #2
- Forum: Perl
-
mv command
One thing I noticed was that the top one includes the directory name in the mv, but the bottom one doesn't. See change in red: $line = "vcx@xxx.xxx.xxx.xxx@01.09.04-14.02.50"; @comb = split(/\@/,$line); $a1 = $comb[0]; $a2 = $comb[1]; $a3 = $comb[2]; $b = "/tmp/tmpdir/"; $c...- raider2001
- Post #2
- Forum: Perl
-
dynamic variables
Sounds like you want a hash. Here's an example: %Price = ( bread => '1.99', eggs => '1.54', milk => '2.39', ); foreach $Item (sort keys %Price) { print "The price of $Item is \$$Price{$Item}\n"; }- raider2001
- Post #2
- Forum: Perl
-
Automate user input = 'yes' or 'y'
Sounds like a job for Expect or Perl::Expect.- raider2001
- Post #2
- Forum: Perl
-
Converting script from Windows to Linux - RE issues
Try 'chomp' to remove the new line character, which differs between linux and windows.- raider2001
- Post #2
- Forum: Perl
-
Help traversing a filesystem
The problem is that you need the full pathname to the file. Here's the code with changes in red my $start_point="."; &Traverse($start_point); sub Traverse{ my ($workdir) = shift; opendir(DIR, $workdir) or die "Unable to open $workdir:$!\n"; my @dirarray =...- raider2001
- Post #3
- Forum: Perl
-
read a key from keyboard without ReadKey module
The line '($answer =~ m/\w/);' is true when the variable $answer contains a word character. Word characters are a-Z and 0-9.- raider2001
- Post #7
- Forum: Perl
-
read a key from keyboard without ReadKey module
You can try just reading until you get what you want like this: system("stty raw"); print "Press y or n: "; do { $buffer = getc(STDIN); $answer = $answer . $buffer; } until ($answer =~ m/\w/); # Adjust condition to your liking system("stty cooked");- raider2001
- Post #5
- Forum: Perl
-
read a key from keyboard without ReadKey module
Mike is right, 'stty raw' will do it. Here's an example: system("stty raw"); print "Press y or n: "; $answer = getc(STDIN); system("stty cooked");- raider2001
- Post #3
- Forum: Perl
-
system command output
@Out = `tail -20 /File.txt`; foreach $Line (@Out) { print "$Line"; }- raider2001
- Post #2
- Forum: Perl
