perforamnce test for printing one and two strings in C,C++,C<<1,Perl and Python

[svn/Cll1h/.git] / demos / performance / print2.pl

diff --git a/demos/performance/print2.pl b/demos/performance/print2.pl
new file mode 100755 (executable)
index 0000000..c27a362
--- /dev/null
+++ b/demos/performance/print2.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+my $i=0;
+for ($i=0;$i<10000000;$i++)
+{
+ print ("stuff1"," ","stuff2","\n");
+}