Username =
Password = 6122996243
Phone = #777
Stupid Mode = 1
ISDN=0
With few chance

I have been using the BSNL EVDO modem on Fedora 10. I found that when the ZTE modem is connected the detection of product/vendor id and loading of usbserial automatic.

I have been using this modem and the wvdial utility.

However I have noticed a problem of redialling. When you disconnect using Control+C and then try to reconnect using wvdial again you find that the modem is not getting initialized and you get some garbage characters on your terminal but no reconnect.

I have to physically disconnect the modem and reconnect it back for the redialling to work. Could you see if your set-up using wvdial gives the same problem?

BTW, your check to avoid duplicated chars actually reduces the randomness of these verification keys.

This is a problem that is more pronounced with hashes. It is possible for a hash key to exist but have an undefined value. The general rule is: use define() to test for array elements and use exist() to test for hash elements.

my @fred = ();
$fred[999] = ‘somevalue’;

then $fred[0..998] do not exist.

#!/usr/bin/perl

use strict;
use warnings;

my @fred = ();
$fred[9] = ‘somevalue’;

for my $i ( 0 .. $#fred ){
if( exists $fred[$i] ){
if( defined $fred[$i] ){
print “\$fred[$i] exists, is defined, and has value $fred[$i]\n”;
}else{
print “\$fred[$i] is not defined\n”;
}
}else{
print “\$fred[$i] does not exists\n”;
}
}

13) Always have a return statement for your sub’s. That way you always know what is returned.

sub foo {
return;
}

If foo() is called in a scalar context, undef is returned. If it is called in a list context, the empty list, (), is returned.

sub bad_return {
return undef;
}

In a list context, this will return a list of one element: ( undef ) This is not the empty list.

14) All the special Perl variables can be found here: http://perldoc.perl.org/perlvar.html

Plus:

Always `use strict;` It will cause a fatal compile error for most things you do not want to do.