File: string2.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 (16 lines) | stat: -rwxr-xr-x 191 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w

my $str = "";

for (my $i = 0; $i < 1000000; $i++)
{
	for (my $j = 65; $j < 91; $j++)
	{
		$c = chr($j);
		$str .= ".(" . $c . ")";
	}
}

print length($str);
print "\n";