使用字符串引用映射文件句柄模拟高速字符缓存

104359176

用 Golang 写了一段时间代码，发现字符串是各种语言唯一通用的数据结构。

下面就用 Golang 的思考模式，写一段高速字符缓冲的代码：

1. use 5.024;
   
2. 
   
3. my $buffer = buffer();
   
4. Write($buffer, "123456");
   
5. Write($buffer, "hello");
   
6. say string($buffer);
   
7. Reset($buffer);
   
8. Write($buffer, "world");
   
9. say string($buffer);
   
10. 
    
11. 
    
12. sub buffer {
    
13.    my $str = q{};
    
14.    return \$str;
    
15. }
    
16. 
    
17. sub Reset {
    
18.    my $buffer = shift;
    
19.    ${$buffer} = q{};
    
20.    return 1;
    
21. }
    
22. 
    
23. sub string {
    
24.    my $buffer = shift;
    
25.    return ${$buffer};
    
26. }
    
27. 
    
28. sub Write {
    
29.    my ($buffer, $str) = @_;
    
30.    open my ($str_fh), '>>', $buffer;
    
31.    print {$str_fh} $str;
    
32.    return 1;
    
33. }

复制代码

输出：

1. $ perl buffer.pl
   
2. 123456hello
   
3. world

复制代码

rubyish

XXle, 3Q~~

q1208c

回复 1# 104359176

我虽然不懂 golang, 但我觉得 字符串 应该不能通用.
连数字好象都不行.

104359176

C 语言的字符串实际上是字符列表，而字符又是数字的一种变形。在大部分语言中，都能很容易的模拟使用。Perl 语言中的可以容纳不同数据类型的数组，
和嵌套数据结构，在静态类型语言中是不允许的。

rubyish

回复 1# 104359176

1. my $buffer = buffer();
   
2. Write($buffer, "123456");
   
3. Write($buffer, "hello");
   
4. say string($buffer);

复制代码

youhe butong?

1. my $buffer;
   
2. $buffer .= "123456";
   
3. $buffer .= "hello";
   
4. say $buffer;

复制代码

you ceshi guo ma?

104359176

回复 5# rubyish

没测试过，是不是有什么问题。
这两种写法的不同，对于 golang 来说，是不允许的，因为 buffer 和字符串是不同的类型，不能直接相加。
对于 Perl 语言，往缓冲里添加字符，比用字符串连接符号要高效。因为连接符号，要重建一个新的字符串。

这个代码只是按照静态语言的思路书写，用 Perl 的眼光来看，从语法上讲没必要。

但是为了追求更高效的应用，迟早要试着用静态语言的思路去写代码。

rubyish

回复 6# 104359176

1 ge small test:
perl 5, version 26, subversion 0 (v5.26.0)


.=  # 0.48 s
fh  # 0.91 s

1. my $X = 1000000;
   
2. my $S = "hello";
   
3. 
   
4. #A();    # 0.48
   
5. B();    # 0.91
   
6. 
   
7. sub A {
   
8.     my $A;
   
9.     for ( 0 .. $X ) { $A .= $S }
   
10.     #say $A;
    
11. }
    
12. 
    
13. sub B {
    
14.     my $A;
    
15.     open my $F, '>', \$A;
    
16.     for ( 0 .. $X ) { print $F $S }
    
17.     #say $A;
    
18.     close $F;
    
19. }

复制代码

rubyish

回复 1# 104359176

not good!

sub Write {
   my ($buffer, $str) = @_;
   open my ($str_fh), '>>', $buffer;
   print {$str_fh} $str;
   return 1;
}

write, write, write...
open, open, open......

523066680

rubyish 有必要加强英文基础，或者想办法搞个中文输入法……
虽然我英语也不熟，不过大致可以说一些跛脚的，个别单词形式可能用不对：

1 ge small test -> one small test
you ceshi guo ma? -> did you test it?
youhe butong?  -> any difference ? / What is the difference?

rubyish

回复 6# 104359176

perl de string yijing daiyou buffer le,
yejiushi yixie qita yuyan de
stringBuffer, stringBuilder...

1. use Devel::Peek;
   
2. my $STR = '0';
   
3. for ( 1 .. 100 ) {
   
4.     Dump($STR);
   
5.     $STR .= $_;
   
6. }

复制代码

100 ci de concat resize zhiyou 10 ci.

10    7
20    6
32    6
48    8
68    10
92    12
120    14
156    18
200    19


SV = PV(0x24cb720) at 0x24e59c8
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x24ee3f8 "01"\0     # 0x24ee3f8 ADDRESS
  CUR = 2                   # str-len  = 2
  LEN = 10                  # buf-size = 10

SV = PV(0x24cb720) at 0x24e59c8
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x24ee3f8 "012"\0    # same ADDRESS
  CUR = 3                   # length + 1 = 3
  LEN = 10      

...

SV = PV(0x24cb720) at 0x24e59c8
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x24e6210 "01234567"\0   # change ADDRESS
  CUR = 8
  LEN = 20                      # buf = 20