UNIX and Linux Forums - Search Results

Showing results 1 to 2 of 2 Search took 0.02 seconds. Search: Posts Made By: RedGrinGo

Forum: Programming 03-06-2011

Perl arrays and loop through array

2,200

Posted By

% perl -le' $str = "1, 2 ,3, 4,6 -10,11 -...

% perl -le'

$str = "1, 2 ,3, 4,6 -10,11 - 15,16, 17";

$str =~ s/(\d+)\s*-\s*(\d+)/@{[$1..$2]}/g;

print "==>>> $_" for split /[\s,]+/, $str;

'
==>>> 1
==>>> 2
==>>> 3
==>>> 4...

Forum: Shell Programming and Scripting 05-13-2010

Perl | catching the letter 'Q' for exit.

2,062

Posted By

Perl: Unbuffered Keyboard Read to Exit Running Code

use Term::ReadKey;
ReadMode 4;

until ( ReadKey(-1) eq 'Q' ) {
... Your Program Here ...
}

ReadMode 0; # Reset tty before exiting
exit;

There you are, sir.

Showing results 1 to 2 of 2