Trying to get the field value to be dynamic. Any help much appreciated.
function update(name, value) {
window.opener.document.my_form.field[name].value = value;
}
Haven't seen much info on this. Basically I am nested several functions that will return a final result. Any consequences of doing it this way? Performance?
I have not see any examples like so. I understand perl is flexible. But in many cases 'flexible' doesn't mean correct.
Example:
my...
Just do this.
<script type="text/javascript">
<!--//
setFocus();
function setFocus(){
document.registrationFrm.submit();
}
//-->
</script>
or even better
<script type="text/javascript">
<!--//
document.registrationFrm.submit();
//-->
</script>
http://unixjunky.com
This will work for you.
#!/usr/bin/perl
use strict;
use File::Find;
my %size;
find(
sub {
$size{$File::Find::name} = -s if -f;
},
@ARGV
);
my @sorted = sort { $size{$b} <=> $size{$a} } keys %size;
splice @sorted, 20 if @sorted > 20;
foreach (@sorted) {
printf "%10d...
#!/usr/bin/perl -w
use strict;
chop( my $input = <STDIN> );
open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
if ( $_ =~ m/($input)/ ) {
print $_;
}
}
close FILE;
http://unixjunky.com
This should work. Enjoy!
#!/usr/bin/perl -w
use strict;
my $input = <STDIN>;
open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
if ( $_ =~ m/($input)/ ) {
print $_;
}
}
close FILE;
http://unixjunky.com
I think this is what you sare looking for
[code]
use CGI;
my $q = new CGI;
foreach my $key ( $q->param() ) {
my @params = $q->param($key);
my $value = join( ", ", @params );
print qq{ KEY: $key - VALUE: $value };
}
http://unixjunky.com
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.