Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

clinton's scratchpad

by clinton (Priest)
on Nov 01, 2006 at 15:13 UTC ( #581685=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl use strict; use warnings; my $m = shift @ARGV; chomp $m; my %func = ( '01' => sub { return $m / ( ( 10 + $_[0] )**0.1 ) }, '02' => sub { return $m / ( ( 10 + $_[0] )**0.2 ) }, '03' => sub { return $m / ( ( 10 + $_[0] )**0.3 ) }, '04' => sub { return $m / ( ( 10 + $_[0] )**0.4 ) }, '05' => sub { return $m / ( ( 10 + $_[0] )**0.5 ) }, '06' => sub { return $m / ( ( 10 + $_[0] )**0.6 ) }, '07' => sub { return $m / ( ( 10 + $_[0] )**0.7 ) }, '08' => sub { return $m / ( ( 10 + $_[0] )**0.8 ) }, '09' => sub { return $m / ( ( 10 + $_[0] )**0.9 ) }, ); for ( sort keys %func ) { print "$_:\n"; my $f = $func{$_}; for ( 10, 20, 50, 100, 200, 500, 1000, 2000, 5000 ) { my $v = int( $f->($_) ); printf "%-4d: %-150s %d\n", $_, '@' x $v, $v; } print "\n\n"; }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Corion]: Oof - "Anyway, if it is not obvious, please keep this discussion entirely confidential for now.", as seen on a public mailing list ;)
[Discipulus]: uh no choroba.. i do not practice much with online putyour image sites:can you suggest one (that possibly remove the pic after few days)?
[choroba]: Corion a bug report?
[choroba]: I have no idea :-( I used to post to photobucket.com, but they don't seem to feature "private" pictures in the free version now
[Discipulus]: dazz i'm not an experts but i think it would be possible
[Corion]: dazz: I think Image::Magick can "read" from an in-memory filehandle
[Corion]: choroba: No, some general admin discussion of how to handle (company) user accounts
[Discipulus]: might be it is necessary to pass the pic data like MIME::Base64:: encode( data..
[Discipulus]: if you have a jpeg data: or as wise Corion said IM ca n read directly your handle

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (10)
As of 2017-03-27 07:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (317 votes). Check out past polls.