File: string1.pl

package info (click to toggle)
gambas3 3.20.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 76,984 kB
  • sloc: ansic: 197,178; cpp: 124,076; sh: 18,999; javascript: 7,761; sql: 5,399; makefile: 2,354; perl: 1,397; xml: 490; python: 335
file content (18 lines) | stat: -rwxr-xr-x 440 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl -w

my $str='abcdefgh'.'efghefgh';
my $imax = 1024 / length($str) * 512;

my $starttime=time();

my $gstr='';
my $i=0;

while($i++ < $imax+1000)
{

        $gstr.=$str;
        $gstr=~s/efgh/____/g;
        my $lngth=length($gstr);   ##     my $lngth=length($gstr);        # Perhaps that would be a slower way
        print time()-$starttime," sec\t\t",$lngth/1024,"kb\n" unless $lngth % (1024*64); #print out every 256kb
}