ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/Capture-Tiny-0.48-0/t/lib
/
home
.cpan
build
Capture-Tiny-0.48-0
t
lib
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
Cases.pm
8.88 MB
chmod
View
DL
Edit
Rename
Delete
TieEvil.pm
730 B
chmod
View
DL
Edit
Rename
Delete
TieLC.pm
816 B
chmod
View
DL
Edit
Rename
Delete
Utils.pm
1.12 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/Capture-Tiny-0.48-0/t/lib/TieLC.pm
package TieLC; sub TIEHANDLE { my $class = shift; my $fh = \do { local *HANDLE}; bless $fh,$class; $fh->OPEN(@_) if (@_); $fh->BINMODE(':utf8'); return $fh; } sub EOF { eof($_[0]) } sub TELL { tell($_[0]) } sub FILENO { fileno($_[0]) } sub SEEK { seek($_[0],$_[1],$_[2]) } sub CLOSE { close($_[0]) } sub BINMODE { binmode($_[0],$_[1]) } sub OPEN { $_[0]->CLOSE if defined($_[0]->FILENO); @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]); } sub READ { read($_[0],$_[1],$_[2]) } sub READLINE { "hello world\n" } sub GETC { getc($_[0]) } sub WRITE { my $fh = $_[0]; print $fh substr($_[1],0,$_[2]) } sub PRINT { my ($self, @what) = @_; my $buf = lc join('', @what); $self->WRITE($buf, length($buf), 0); } sub UNTIE { 1 }; # suppress warnings about references 1;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply