use strict;
use warnings;
my @files = split (/\n/, `find . -type f -print`);
foreach my $file (@files) {
my $first_line = `head -n 1 $file`;
if ($first_line =~ m/env\s+pwsh/) {
print "Removing file $file\n";
unlink $file;
}
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| bin | Folder | 0755 |
|
|
| include | Folder | 0755 |
|
|
| lib | Folder | 0755 |
|
|
| share | Folder | 0755 |
|
|
| CHANGELOG.md | File | 703.16 KB | 0644 |
|
| LICENSE | File | 90.62 KB | 0644 |
|
| README.md | File | 34.52 KB | 0644 |
|
| remove_pwsh.pl | File | 256 B | 0644 |
|