file_magic.al
来自「视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.」· AL 代码 · 共 22 行
AL
22 行
# NOTE: Derived from ../../lib/Storable.pm.# Changes made here will be lost when autosplit is run again.# See AutoSplit.pm.package Storable;#line 118 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/file_magic.al)"sub file_magic { my $file = shift; my $fh = new FileHandle; open($fh, "<". $file) || die "Can't open '$file': $!"; binmode($fh); defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; close($fh); $file = "./$file" unless $file; # ensure TRUE value return read_magic($buf, $file);}# end of Storable::file_magic1;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?