by Limbic~Region (Chancellor)

on Oct 23, 2006 at 16:27 UTC ( [id://580093]=perlmeditation: print w/replies, xml )

Need Help??

Select Code to Download

#!/usr/bin/perl
use strict;
...
    }
    return 0;
}

#!/usr/bin/perl
use strict;
...
    }
    return 0;
}

import java.io.File;
import java.io.IOException;
...
        return sum;
    }
}

#!/usr/bin/perl
use strict;
...
    
    return ret_sv;
}

import java.io.File;
import java.io.IOException;
...
        return sum;
    }
}

#!/usr/bin/perl
use strict;
...

my %rev = reverse %fwd;
store \%rev, 'sol.rev';

#!/usr/bin/perl
use strict;
...
    $dbh->do($sql) or die $dbh->errstr;
}
$dbh->disconnect or die $dbh->errstr;

#!/usr/bin/perl -T
use strict;
...
    my %uniq = map {$_ => undef} split //, $input;
    return join '', sort keys %uniq;
}

<html>
<head><title>How many words does it take.....</title></head>
...
</center>
</body>
</html>

<html>
<head><title>It takes.....</title></head>
...
</center>
</body>
</html>

Domain Nodelet^?

Node Status^?

node history
Node Type: perlmeditation [id://580093]
Approved by friedo
Front-paged by liverpole
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others browsing the Monastery: (5)

As of 2024-04-18 00:28 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found