mirror of
https://github.com/shlomif/PySolFC.git
synced 2025-04-15 02:54:09 -04:00
Add a utility script.
This commit is contained in:
parent
f8d37be1e9
commit
7917931417
1 changed files with 25 additions and 0 deletions
25
scripts/filter-inidivual-importing-tests.pl
Normal file
25
scripts/filter-inidivual-importing-tests.pl
Normal file
|
@ -0,0 +1,25 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use IO::All;
|
||||||
|
use List::MoreUtils qw(none);
|
||||||
|
|
||||||
|
my @m2;
|
||||||
|
L_LOOP:
|
||||||
|
foreach my $l (io("scripts/gen_individual_importing_tests.py")->getlines())
|
||||||
|
{
|
||||||
|
if ($l =~ m/^for module_name/)
|
||||||
|
{
|
||||||
|
my @ms = $l =~ m{('pysollib\.[^']+')}g;
|
||||||
|
@m2 = (map { $_ =~ s/\A'//r =~ s/\'\z//r =~ tr#.#/#r } @ms);
|
||||||
|
last L_LOOP;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
while (my $l = <STDIN>)
|
||||||
|
{
|
||||||
|
chomp($l);
|
||||||
|
print "$l\n" if none { $l =~ /$_/ } @m2;
|
||||||
|
}
|
Loading…
Add table
Reference in a new issue