mirror of
https://github.com/shlomif/PySolFC.git
synced 2025-04-05 00:02:29 -04:00
25 lines
466 B
Perl
25 lines
466 B
Perl
#!/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;
|
|
}
|