changeset 4:1ad45c44e12f default tip

add time count script
author e165727 <e165727@ie.u-ryukyu.ac.jp>
date Sat, 15 Feb 2020 05:02:22 +0900
parents d7762f4e8bfa
children
files .DS_Store lib/Abyss/Server.pm6 other/client.p6 other/fibonacci.p6 other/time_count.sh
diffstat 5 files changed, 28 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
Binary file .DS_Store has changed
--- a/lib/Abyss/Server.pm6	Thu Feb 13 20:49:23 2020 +0900
+++ b/lib/Abyss/Server.pm6	Sat Feb 15 05:02:22 2020 +0900
@@ -12,46 +12,24 @@
 {
     my $listen = IO::Socket::Unix.new(  :listen,
                                         :localhost<localhost>,
-                                        :localport(3333) );
-                                     
-    my $backup = dup(1);#stdoutのバックアップを作成
+                                        :localport(3333) );            
+    my $backup = dup(1);
     say DateTime.now;
-    my $sumTime = 0;
-    my $counter = 0;
-  
-    loop 
+
+    loop
     {
         my $conn = $listen.accept;
-        
-        #my $start = now;
-
-        say "next recv msg";
         my $sock_msg;
-        
         my $buf = $conn.recv();
         $sock_msg = $buf;
-        
-        say $sock_msg;
-
-        #my $end = now;
-        #EVAL $sock_msg;
-        #say $conn.native-descriptor();
         close(1);
-        dup2($conn.native-descriptor(), 1);#stdoutをsocketに切り替え
+        dup2($conn.native-descriptor(), 1);
         EVALFILE $sock_msg;
-        #my $Time = $end - $start;
-        #$sumTime = $sumTime + $Time;
-        #say $Time; 
-        #say "hello";
-        
-        #$conn.print: 'send to Client';
-        #$conn.print: EVALFILE $sock_msg;
-        
-        dup2($backup, 1); #file descripterを元に戻す
-        close($backup); #backup消す
-        
+        dup2($backup, 1);
+        close($backup);
         $conn.close;
     }
+
     $listen.close;
 }
 
--- a/other/client.p6	Thu Feb 13 20:49:23 2020 +0900
+++ b/other/client.p6	Sat Feb 15 05:02:22 2020 +0900
@@ -4,7 +4,7 @@
 my $conn = IO::Socket::Unix.new( :host<localhost>,
                                  :port(3333) );
 
-$conn.print: '/Users/Koo/College/lab/Perl6/origin/Otoya-Server/other/fibonacci.p6';
+$conn.print: '/Users/Koo/College/lab/my-papers/Abyss-Server/other/fibonacci.p6';
 
 my $sock_msg;
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/other/fibonacci.p6	Sat Feb 15 05:02:22 2020 +0900
@@ -0,0 +1,4 @@
+my @result = (1, 1, *+* ...^ *);
+my $x = 151;
+@result[$x].say;
+say "hello";
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/other/time_count.sh	Sat Feb 15 05:02:22 2020 +0900
@@ -0,0 +1,15 @@
+#!/bin/zsh
+
+echo 'perl6_default'
+time for i in `seq 1 1`
+do
+    /Users/Koo/College/lab/Perl6/rakudo/perl6-m -I/Users/Koo/College/lab/Perl6/rakudo/src/core.c -I/Users/Koo/College/lab/Perl6/rakudo/core.d -I/Users/Koo/College/lab/Perl6/rakudo/lib -Ilib fibonacci.p6
+done
+echo '====='
+
+echo 'perl6_server'
+time for t in `seq 1 1`
+do
+    /Users/Koo/College/lab/Perl6/rakudo/perl6-m -I/Users/Koo/College/lab/Perl6/rakudo/src/core.c -I/Users/Koo/College/lab/Perl6/rakudo/core.d -I/Users/Koo/College/lab/Perl6/rakudo/lib -Ilib client.p6
+done
+echo '====='