Hi,
I have a TEST.dat file. As a clean up process, I have to delete the TEST.dat file if it is empty. Basically, I don't want to delete TEST.dat if it contains anything in it but want to delete TEST.dat if it contains any spaces or nothing in it.
Is there a command to check if the file... (2 Replies)
hi
how can I determine, if a file is empty or not?I am using read line clause.
The script should be like:
while read line
do
if(file is empty) then;
......
done < $blacklist (1 Reply)
I have a program that takes a file in which I use a sed to remove some data that is not needed. If all of the data is removed. I want to grep for that in the file and print that there is no data left in the file. When I use sed, I replace a word with nothing but it still seems to leave a return... (5 Replies)
Hi All,
I have a piece of perl code in which I DON'T want to delete a file rather empty out the contents, here is the code -
if ( unlink("$opt_b") == 1 ) {
print_log( "$opt_b deleted", 1 );
}else {
print_log( "Could not delete $opt_b:$!", 1 );
... (5 Replies)
Hi there,
I'm just starting out with shell scripting and I'm trying to make a test where the script will basically run yum check-update to find out if the server has any available and if it does it e-mails me but if not it will just stop there.
I have it working if there are actually... (7 Replies)
when I run the following command in AIX (bash),
find ./*
I get the following error.
find: bad status-- ./*
Thats becasuse, its an empty directory. The same works, when there the directory is not empty. Even though the find deesnt have to rerun any result.
My full find command would look... (4 Replies)
Discussion started by: deepakwins
4 Replies
LEARN ABOUT DEBIAN
ppix::editortools::introducetemporaryvariable
PPIx::EditorTools::IntroduceTemporaryVariable(3pm) User Contributed Perl Documentation PPIx::EditorTools::IntroduceTemporaryVariable(3pm)NAME
PPIx::EditorTools::IntroduceTemporaryVariable - Introduces a temporary variable using PPI
SYNOPSIS
my $munged = PPIx::EditorTools::IntroduceTemporaryVariable->new->introduce(
code => "use strict; BEGIN {
$^W = 1;
}
my $x = ( 1 + 10 / 12 ) * 2;
my $y = ( 3 + 10 / 12 ) * 2;
",
start_location => [ 2, 19 ],
end_location => [ 2, 25 ],
varname => '$foo',
);
my $modified_code_as_string = $munged->code;
my $location_of_new_var_declaration = $munged->element->location;
DESCRIPTION
Given a region of code within a statement, replaces all occurrences of that code with a temporary variable. Declares and initializes the
temporary variable right above the statement that included the selected expression.
METHODS
new()
Constructor. Generally shouldn't be called with any arguments.
find( ppi => PPI::Document, start_location => Int, end_location => Int, varname => Str ) =item find( code => Str, start_location => Int,
end_location => Int, varname => Str )
Accepts either a "PPI::Document" to process or a string containing the code (which will be converted into a "PPI::Document") to
process.
Given the region of code specified by start_location and end_location, replaces that code with a temporary variable with the name given
in varname (defaults to "tmp"). Declares and initializes the temporary variable right above the statement that included the selected
expression.
Returns a "PPIx::EditorTools::ReturnObject" with the modified code as a string available via the "code" accessor (or as a
"PPI::Document" via the "ppi" accessor), and the "PPI::Token" where the new variable is declared available via the "element" accessor.
Croaks with a "no token" exception if no token is found at the location. Croaks with a "no statement" exception if unable to find the
statement.
SEE ALSO
This class inherits from "PPIx::EditorTools". Also see App::EditorTools, Padre, and PPI.
perl v5.14.2 2012-03-11 PPIx::EditorTools::IntroduceTemporaryVariable(3pm)