ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-IO-HTML/examples
/
usr
share
doc
perl-IO-HTML
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
detect-encoding.pl
574 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-IO-HTML/examples/detect-encoding.pl
#!/usr/bin/perl #--------------------------------------------------------------------- # This example is hereby placed in the public domain. # You may copy from it freely. # # Detect the encoding of files given on the command line #--------------------------------------------------------------------- use strict; use warnings; use IO::HTML qw(html_file_and_encoding); for my $filename (@ARGV) { my ($filehandle, $encoding, $bom) = html_file_and_encoding($filename); close $filehandle; $encoding .= " BOM=$bom" if defined $bom; print "$filename: $encoding\n"; }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply