<commit_before>###############################################################################
# Copyright (c) 2000-2016 Ericsson Telecom AB
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# Contributors:
#   <NAME>
#   <NAME>
#
###############################################################################
#!/usr/bin/perl
###############################################################################
# This script is intended to archive the project hierarchy from a TPD file structure
###############################################################################
use 5.010;
use strict;
use warnings;
use Cwd;
use File::Copy;

my $ttcn3_dir = $ENV{'TTCN3_DIR'};
my $bindir = $ttcn3_dir . "/bin"; 
my $home = cwd();
my @list = readFile();
my $tpd = getTPDFileName(\@list);
chomp ($tpd);
if (-l $tpd)  #get the path if it is a symlink
{
  $tpd = `readlink $tpd`;
  chomp ($tpd);
}
my $root = getPathToRootDir(\@list); # get the workspace directory of the OS
chomp ($root);
chdir ($root) or die "cannot change: $!\n";
my $cutstring = cwd; # this is string generated from the the absolut path to the workspace
my $archiveDir = getArchiveDir(\@list); #directory to place the archive
$archiveDir = $home . "/" .  $archiveDir;<commit_msg>Placed #!/usr/bin/perl before the header section<commit_after>#!/usr/bin/perl
###############################################################################
# Copyright (c) 2000-2016 Ericsson Telecom AB
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# Contributors:
#   <NAME>
#   <NAME>
#
###############################################################################
###############################################################################
# This script is intended to archive the project hierarchy from a TPD file structure
###############################################################################
use 5.010;
use strict;
use warnings;
use Cwd;
use File::Copy;

my $ttcn3_dir = $ENV{'TTCN3_DIR'};
my $bindir = $ttcn3_dir . "/bin"; 
my $home = cwd();
my @list = readFile();
my $tpd = getTPDFileName(\@list);
chomp ($tpd);
if (-l $tpd)  #get the path if it is a symlink
{
  $tpd = `readlink $tpd`;
  chomp ($tpd);
}
my $root = getPathToRootDir(\@list); # get the workspace directory of the OS
chomp ($root);
chdir ($root) or die "cannot change: $!\n";
my $cutstring = cwd; # this is string generated from the the absolut path to the workspace
my $archiveDir = getArchiveDir(\@list); #directory to place the archive
$archiveDir = $home . "/" .  $archiveDir;
{'fraction_non_alphanumeric': 0.31954498448810753, 'fraction_numerical': 0.013098931402964495, 'mean_word_length': 5.702078521939954, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4711245', 'n_tokens_mistral': 855, 'n_tokens_neox': 805, 'n_words': 293}