Hello,

I'm new to Perl and am not sure whether I can do what I intend so would greatly appreciate some advice please.

Within Materials Studio (2016) GUI I want to use perl to open some cif files within a directory held outside of a  Materials Studio project, and then extract a particular line from each cif file, using this line in a subsequent calculation, also contained within the perl script.

I don't understand why the following fails at   open (my \\\$fh, '<', \\\$file2) or die \\\$!; (The following is part of a larger code)
####################################################:

my \\\$i = 0;
my \\\$input_suffix = 'cif';
opendir my \\\$folder, \\\$inputFilesFolder or die "Couldn't open folder";
my @allfiles = grep  /^.+\\.\\\$input_suffix\\\$/, readdir \\\$folder;
print "@allfiles";
print "This is the main folder: \\\$folder";
foreach my \\\$file (@allfiles) {
     print "Parsing \\\$file \\n";

print "This is the list of cif files:@allfiles\\n";
print "This is the number of elements in '@allfiles': " . @allfiles . "\\n";

my \\\$prefix = "\\\$folder";

#print "\\\$files[2]\\n";




my @filepaths = "\\\$outputFilesFolder/\\\$file";
# my @filepaths =  map { \\\$prefix . \\\$_ } @allfiles; 

print "This is now the new list of filepaths: @filepaths";



print "Size: ",scalar @filepaths, "\\n";
print "This is each cif file with its full path:@filepaths \\n";

print "# This is the number of Elements: " . @filepaths . "\\n";
   

#closedir \\\$folder;
print "This is the directory we're now in: \\\$folder \\n";


foreach my \\\$file2(@filepaths) {
   print "This is each file and its path again: \\\$file \\n";
    print "# Elements: " . @filepaths . "\\n";
    open (my \\\$fh, '<', \\\$file2) or die \\\$!;

   
    my @lines = <\\\$fh>;
       for (@lines) {

        

    if (\\\$_ =~ /(z_value)\\s\\:\\s(\\d+\\.\\d+)/) {
        print "\\\$2\\n";
     }
   }


  }
}
######################################

Am I trying to do the impossible within the GUI?

Advice welcome!

Many thanks and best wishes,
Dawn Geatches