文件中定位查找特殊字段并输出到表格中

凋谢1991

请各位路过的大神们相助：
      问题：现有一个文件file，要在里面查找“BFGS : Geometry optimization completed successfully.”之后出现的第一个Lattice parameters(A)下第三行的内容，将其输出到std的表格中。

my $a=1;
&parametersetting($a);
open (File($a), "a.castep" || die ("open a.castep fasiled"));
my $line;
while ( $line = <File($a)> )
{
      if($line =~ /"BFGS : Geometry optimization completed successfully."/)
      {
        #这里定位怎么解决？
      }
}
close (File($a));   
下图是文件输出中三者之间的位置关系
   

凋谢1991

为什么没有人解答一下啊，呼唤走过路过的大神们帮助一下吧

jason680

回复 2# 凋谢1991

1. input data
2. procedure
3. output data

凋谢1991

回复 3# jason680

请大神细数一下，主要是卡在了文件定位这里，不知道怎样抓取条件下的特定数据

凋谢1991

现在想的是将文件按行读入数组中，然后以数组长度循环，不知道这样是否可行？求大神指点啊

凋谢1991

走过路过的大神们，请帮忙看下下面这段代码中为何写出Script.txt文件

1. #!perl
   
2. 
   
3. use strict;
   
4. use Getopt::Long;
   
5. use MaterialsScript qw(:all);
   
6. 
   
7. my $a     = 1;
   
8. my $myDoc = $Documents{"$a.xsd"};
   
9. my $stressz;
   
10. 
    
11. sub castepcalculation ($stressz) {
    
12.     my ($stressz) = @_;
    
13. 
    
14.     my $castep = Modules->CASTEP;
    
15.     $castep->ChangeSettings(
    
16.         Settings(
    
17.             Task                  => "Geometry Optimization",
    
18.             NonLocalFunctional    => "PBE",
    
19.             UseCustomEnergyCutoff => "Yes",
    
20.             EnergyCutoff          => 350,
    
21.             SCFConvergence        => 5e-002,
    
22.             MaximumSCFCycles      => 200,
    
23.             CalculateStress       => "Yes",
    
24.             OptimizeCell          => "Yes",
    
25.             EnergyConvergence     => 5e-001,
    
26.             Sxx                   => 0,
    
27.             Syy                   => 0,
    
28.             Szz                   => "$stressz",
    
29.             Quality               => "Ultra-fine",
    
30. 
    
31.             # PropertiesKPointQuality => "Fine"
    
32.             KPointDerivation => "CustomGrid",
    
33.             ParameterA       => 1,
    
34.             ParameterB       => 1,
    
35.             ParameterC       => 1
    
36.         )
    
37.     );
    
38.     $castep->GeometryOptimization->Run($myDoc);
    
39. }
    
40. 
    
41. for ( my $stressz = 0 ; $stressz <= 3 ; ++$stressz ) {
    
42.     &castepcalculation($stressz);  #calculate the results files by castep module     
    
43. 
    
44.     #Processing result file
    
45.     open( result, "$a.castep" || die("open 1.castep fasiled") );
    
46.     open( OUTFILE, ">>Script.txt" );
    
47.     my @line  = ();
    
48.     my $count = 1;
    
49.     my $perlscript = "/Documents/script/try2";
    
50.     my $outputName;
    
51.     @line = <result>;
    
52. 
    
53.     while ( $count <= @line )      #$line[count]
    
54.     {
    
55.         if ($line[$count] =~ /" BFGS : Geometry optimization completed successfully."/ )
    
56.         {
    
57.             open (OUTFILE, ">>Script.txt") || die ("write Script.out fasiled");
    
58.             printf OUTFILE ("stressz=%d Lattice=%2.8f \n",$stressz,$line[$count+17]);
    
59.             opendir(filedir,"$perlscript" || die "open dir-try2 fasiled" );
    
60.             last;
    
61.         }
    
62.         else{
    
63.              if ( $count < @line ){
    
64.                 $count++;
    
65.              }
    
66.              redo &castepcalculation if($count = @line);
    
67.         }
    
68.     }
    
69. }
    

复制代码