view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/sunix/par/mkparfile.pm  view on Meta::CPAN

package App::SeismicUnixGui::sunix::par::mkparfile;

=head1 DOCUMENTATION

=head2 SYNOPSIS

 PERL PROGRAM NAME:  MKPARFILE - convert ascii to par file format 				
AUTHOR: Juan Lorenzo (Perl module only)
 DATE:   
 DESCRIPTION:
 Version: 

=head2 USE

=head3 NOTES

=head4 Examples

=head3 SEISMIC UNIX NOTES

 MKPARFILE - convert ascii to par file format 				

 mkparfile <stdin >stdout 						

 Optional parameters:							
 	string1="par1"	first par string			
 	string2="par2"	second par string			

 This is a tool to convert values written line by line to parameter 	
 vectors in the form expected by getpar.  For example, if the input	
 file looks like:							
 	t0 v0								
 	t1 v1								
	...								
 then									
	mkparfile <input >output string1=tnmo string2=vnmo		
 yields:								
	tnmo=t0,t1,...							
	vnmo=v0,v1,...							

=head2 CHANGES and their DATES

=cut

use Moose;
our $VERSION = '0.0.1';
use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';

my $get = L_SU_global_constants->new();

my $var          = $get->var();
my $empty_string = $var->{_empty_string};

my $mkparfile = {
    _string1 => '',
    _string2 => '',
    _tnmo    => '',
    _vnmo    => '',
    _Step    => '',
    _note    => '',
};

=head2 sub Step

collects switches and assembles bash instructions
by adding the program name

=cut

sub Step {

    $mkparfile->{_Step} = 'mkparfile' . $mkparfile->{_Step};
    return ( $mkparfile->{_Step} );

}

=head2 sub note

collects switches and assembles bash instructions
by adding the program name

=cut

sub note {

    $mkparfile->{_note} = 'mkparfile' . $mkparfile->{_note};
    return ( $mkparfile->{_note} );

}

=head2 sub clear