Search results for query: *

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...

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...

How about using pattern matching? if ($a =~ /\./) { # $a has a decimal point } else { # $a is an integer }

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"; } }

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 =...

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 =...

The following should do the trick. Comments added for clarification. $file = &quot;temp.txt&quot;; $RecSep = $/; # Save input record separator undef($/); # Undefine input record separator open(F, $file) or die &quot;Can't open $file: $!\n&quot;; $contents = <F>; # Read all of file into a...

nfaber, My mistake I put a backslash instead of a slash for the input record separator. It should be '$/'.

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 =...

One way is to split the string into characters and count how many of each one. Here's an example: @strings = (&quot;abcabc&quot;, &quot;abcdabcd&quot;, &quot;abcabcc&quot;, &quot;abcabcb&quot;, &quot;abc&quot;, &quot;aaa&quot;, &quot;abbccbcaaacc&quot;); foreach $string (@strings) { @chars...

This is easy enough to do with sort. See the example below: @list = (&quot;01/22/2000&quot;, &quot;01/21/2001&quot;, &quot;08/08/2000&quot;, &quot;12/12/2000&quot;, &quot;09/09/1999&quot;); sub mysort() { @data1 = split (&quot;/&quot;,$a); @data2 = split (&quot;/&quot;,$b)...

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 = &quot;vcx@xxx.xxx.xxx.xxx@01.09.04-14.02.50&quot;; @comb = split(/\@/,$line); $a1 = $comb[0]; $a2 = $comb[1]; $a3 = $comb[2]; $b = &quot;/tmp/tmpdir/&quot;; $c...

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 &quot;The price of $Item is \$$Price{$Item}\n&quot;; }

Sounds like a job for Expect or Perl::Expect.

Try 'chomp' to remove the new line character, which differs between linux and windows.

The problem is that you need the full pathname to the file. Here's the code with changes in red my $start_point=&quot;.&quot;; &Traverse($start_point); sub Traverse{ my ($workdir) = shift; opendir(DIR, $workdir) or die &quot;Unable to open $workdir:$!\n&quot;; my @dirarray =...

The line '($answer =~ m/\w/);' is true when the variable $answer contains a word character. Word characters are a-Z and 0-9.

You can try just reading until you get what you want like this: system(&quot;stty raw&quot;); print &quot;Press y or n: &quot;; do { $buffer = getc(STDIN); $answer = $answer . $buffer; } until ($answer =~ m/\w/); # Adjust condition to your liking system(&quot;stty cooked&quot;);

Mike is right, 'stty raw' will do it. Here's an example: system(&quot;stty raw&quot;); print &quot;Press y or n: &quot;; $answer = getc(STDIN); system(&quot;stty cooked&quot;);

@Out = `tail -20 /File.txt`; foreach $Line (@Out) { print &quot;$Line&quot;; }