"until" is not a loop, it is a condition. What you want is "while". "while" is a loop and you can use loop commands to control the loop:
next
redo
last
The old standard for what you are doing is:
Code:
while(1){
...
}
heres a working example I recently posted on another forum:
Code:
use strict;
use warnings;
my $thinkingof = int(rand 10)+1;
while (1) {
print "Pick a number 1 to 10\n";
my $guess = <STDIN>;
chomp $guess;
if ($guess > $thinkingof){
print "You guessed too high\n";
next;
}
elsif ($guess < $thinkingof){
print "You guessed too low\n";
next;
}
print "YOU GUESSED RIGHT!! It was $guess\n";
last;
}
When i run my perl/tk script, a perl window pops up behind the GUI window,, can this be hidden????
Also, can the Icon be changed, the Tk icon in every window??? (1 Reply)
If I use 2 system commands in a script, will one finish before the next one starts? or will it start the first and the second at the same time?
i.e.
system("ps | grep rminer");
system("ls -al | grep 431"); (1 Reply)
Hello,
pkzipc of a certain zip file yeilds the following in shell
PKZIP(R) Version 6.0 FAST! Compression Utility for AIX
Copyright 1989-2002 PKWARE Inc. All Rights Reserved. Registered Version
PKZIP Reg. U.S. Pat. and Tm. Off. Patent No. 5,051,745
Viewing .ZIP: test.zip
Length... (13 Replies)
I copy and paste from the book but this thing is not working.
I cannot figure out what is wrong with myline 9.. can someone please tell me
# cat ./sort4.pl
#!/usr/bin/perl -w
use strict;
use warnings;
my $input = shift;
my $output = shift;
open(IN, '<', $input) or die... (4 Replies)
Below program, I do not get why item I am looking for is , instead of .
When I do $#text, i get the right value for $value1, but when I do , i get somsething4, instead of
somsethingxxxxxxxxxxxxxxxxxxx(which is what I am looking for.
when I do , I get empty.. why? what did I do wrong? can you... (2 Replies)
I fail to see how below answer is 1? can someone explain this for me?
DB<3> $string = "The cat sat on the mat";
DB<4> $animal = ($string =~ m/The (.*) sat/);
DB<5> print $animal;
1 (2 Replies)
I have a question regarding bulding a hash from a file which has below pattern
I thought I could write something like this but clearly my syntax is way off
$/ = "\n\n";
$" = "\n";
open(FILE, file1) || die;
my %keymaster = ( );
while (<FILE>) {
my $topinfo =~... (5 Replies)
I am reading a file in perl script .. during the debug the $linein value is :
linein : +ASM1,sys,||¬ |3Æqúoü;”ט||
from this line I am getting the tmepuser and password from above :
($tmpuser, $pwd) = ($linein =~ /^$server\s*,\s*(+)\s*,\|\|(.+)\|\|/sm);
I am getting $tmpuser and... (2 Replies)
Hello everybody, I am new at the forum and a total newbie when it comes to Unix.
I am trying to see how I can add the ability to kill a user's processes?
I want to add this to my Shel Script Add the code/process into a subroutine.
Also, I would like to use an array to store the list... (0 Replies)
Discussion started by: kinelisch
0 Replies
LEARN ABOUT DEBIAN
bt-input
bt-input(1) bluez-tools bt-input(1)NAME
bt-input - a bluetooth input manager
SYNOPSIS
bt-input [OPTION...]
Help Options:
-h, --help
Application Options:
-a, --adapter=<name|mac>
-c, --connect=<name|mac>
-d, --disconnect=<name|mac>
DESCRIPTION
This utility is used to manage outgoing input (HID) service connections.
OPTIONS -h, --help
Show help
-a, --adapter <name|mac>
Specify adapter to use by his Name or MAC address
(if this option does not defined - default adapter used)
-c, --connect <name|mac>
Connect to the input device
-d, --disconnect <name|mac>
Disconnect from the input device
AUTHOR
Alexander Orlenko <zxteam@gmail.com>.
SEE ALSO bt-adapter(1)bt-agent(1)bt-audio(1)bt-device(1)bt-monitor(1)bt-network(1)bt-serial(1)
2010-08-11 bt-input(1)