Help for this page

Select Code to Download


  1. or download this
    for my $file (glob '1M01_F*.npt.gro') {
  next unless $file=~/^1M01_F\d{5}\.npt\.gro$/;
...
1M01_F00130.npt.gro
1M01_F00140.npt.gro
1M01_F00150.npt.gro
  2. or download this
    for my $n (121,130,140,150) {
  my $file = sprintf '1M01_F%05d.npt.gro', $n;
...
1M01_F00130.npt.gro
1M01_F00140.npt.gro
1M01_F00150.npt.gro