Hello All. I am very new to Linux and I am currently interning. I have been working on a project for a week and I have had no success. I have to convert bash shell into perl to decrypt and store files. Here is the code in Linux and Bash. Any help would be greatly appreciated.
$... (0 Replies)
Hello All. I am very new to Linux and I am currently interning. I have been working on a project for 2 weeks now and I have had no success. I have to convert bash shell into perl to decrypt and store files. Here is the code in Linux and Bash. Any help would be greatly appreciated.
$... (0 Replies)
can any body translate the follwing script into one that works in bash?
#!/usr/bin/perl
# classify_books.pl
my $csv_file = shift;
my %categories = ( 'childrens' => 'childrens_books.txt',
'horror' => 'horror_books.txt',
'sports ' =>... (3 Replies)
Why is only hello3 being printed? There must be some kind of syntax problem because the file list definitely includes all the file extensions line by line.
#!/bin/bash
find '/home/myuser/folder/' -name '*.c' -type f | while read F
do
if ] # if the file name ends in .txt.c
then
... (6 Replies)
I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly:
if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Hello,
In one part of my shell program I need to translate many of lines in the following pattern :
/(folder1|...|folderN)/(sub1|...|subN)/.../(file1|...|fileN)
into strings :
/folder1/sub1/.../file1
/folder1/sub1/.../...
/folder1/sub1/.../fileN
...
/folderN/subN/.../fileN
the... (2 Replies)
In order to clean file from html tags i used the following
sed 's/<*>//g' filename
Right now i need to do the same from php script so i have to use pcre. How to convert? (1 Reply)
Hello to all,
The Regex below is supposed to match all strings except RR45. I've tested in regex101.com and it works, butwhen I try to use it with the perl command below I get the error shown.
Regex=(?<=^|RR45)(?!RR45).+?(?=RR45|$)
How to fix this? I'm using Cygwin.
$ echo... (9 Replies)
I am not a big expert in regex and have just little understanding of that language.
Could you help me to understand the regular Perl expression:
^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{
------
This is regex to select functions from a C/C++ source and defined in... (2 Replies)
XS::APItest(3pm) Perl Programmers Reference Guide XS::APItest(3pm)NAME
XS::APItest - Test the perl C API
SYNOPSIS
use XS::APItest;
print_double(4);
ABSTRACT
This module tests the perl C API. Currently tests that "printf" works correctly.
DESCRIPTION
This module can be used to check that the perl C API is behaving correctly. This module provides test functions and an associated test
script that verifies the output.
This module is not meant to be installed.
EXPORT
Exports all the test functions:
print_double
Test that a double-precision floating point number is formatted correctly by "printf".
print_double( $val );
Output is sent to STDOUT.
print_long_double
Test that a "long double" is formatted correctly by "printf". Takes no arguments - the test value is hard-wired into the function (as
"7").
print_long_double();
Output is sent to STDOUT.
have_long_double
Determine whether a "long double" is supported by Perl. This should be used to determine whether to test "print_long_double".
print_long_double() if have_long_double;
print_nv
Test that an "NV" is formatted correctly by "printf".
print_nv( $val );
Output is sent to STDOUT.
print_iv
Test that an "IV" is formatted correctly by "printf".
print_iv( $val );
Output is sent to STDOUT.
print_uv
Test that an "UV" is formatted correctly by "printf".
print_uv( $val );
Output is sent to STDOUT.
print_int
Test that an "int" is formatted correctly by "printf".
print_int( $val );
Output is sent to STDOUT.
print_long
Test that an "long" is formatted correctly by "printf".
print_long( $val );
Output is sent to STDOUT.
print_float
Test that a single-precision floating point number is formatted correctly by "printf".
print_float( $val );
Output is sent to STDOUT.
call_sv, call_pv, call_method
These exercise the C calls of the same names. Everything after the flags arg is passed as the the args to the called function. They
return whatever the C function itself pushed onto the stack, plus the return value from the function; for example
call_sv( sub { @_, 'c' }, G_ARRAY, 'a', 'b'); # returns 'a', 'b', 'c', 3
call_sv( sub { @_ }, G_SCALAR, 'a', 'b'); # returns 'b', 1
eval_sv
Evaluates the passed SV. Result handling is done the same as for "call_sv()" etc.
eval_pv
Exercises the C function of the same name in scalar context. Returns the same SV that the C function returns.
require_pv
Exercises the C function of the same name. Returns nothing.
SEE ALSO
XS::Typemap, perlapi.
AUTHORS
Tim Jenness, <t.jenness@jach.hawaii.edu>, Christian Soeller, <csoelle@mph.auckland.ac.nz>, Hugo van der Sanden <hv@crypt.compulink.co.uk>
COPYRIGHT AND LICENSE
Copyright (C) 2002,2004 Tim Jenness, Christian Soeller, Hugo van der Sanden. All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.5 2012-11-03 XS::APItest(3pm)