|
hotsanic |
Subversion Repositories: |
| Line No. | Rev | Author | Line |
|---|---|---|---|
| 1 | 32 | simandl | #!/usr/bin/env perl |
| 2 | use strict; |
||
| 3 | use warnings; |
||
| 4 | use diagnostics; |
||
| 5 | |
||
| 6 | my $var=19876*0.0000001; |
||
| 7 | print "$var\n"; |
||
| 8 | |
||
| 9 | my $power = 10* log(1000*$var)/log(10); |
||
| 10 | |
||
| 11 | print $power; |
||
| 12 | |