Yahoo Web Search

Search results

1. Top results related to computer programming languages perl code to copy text

   • Perl code to serialize and deserialize variable like python pickle

     Top Answer

     Answered Mar 22, 2012 · 4 votes

     Untested.

     use Python::Serialise::Pickle qw( );-# Work around P::S::Pickle 0.01's extremely limiting interface.sub pickle_dumps { open(my $fh, '>', \my $s) or die $!; my $pickle = bless({ _fh => $fh }, 'Python::Serialise::Pickle'); $pickle->dump($_[0]); $pickle->close(); return $s;}my $data = [ "somestring.data", [ 178346464, 1234568 ] ];my $message = pack("N/a*", pickle_dumps($data));

     Check all answers on Stack Overflow

     1/5

   • Perl to Tcl code conversion

     Top Answer

     Answered Jan 15, 2016 · 2 votes

     Well, let's consider your code in your first file:

     my @GPO_regs = qw(0x70034 0x70038 0x7003C 0x70040 0x70044);-

     This (which is creating an effectively-global variable that is never used?) would be translated into:

     set GPO_regs {0x70034 0x70038 0x7003C 0x70040 0x70044}-

     Whereas this:

     sub write_phy { my($phy, $register, $value) = @_; # Stuff...}

     Becomes:

     proc write_phy {phy register value} { # Translation of Stuff...}

     Going on to look at the contents of the subroutine (after applying the obvious correction):

     $value = oct($value) if $value =~ /^0/;-

     This line decodes the octal value of a string if that string starts with a leading zero. Tcl does this by default in some contexts, but let's be explicit. I'll use a regular expression to do the “if that string starts with a leading zero” even though I would not normally do this, as that will help you translate your other file:

     if { [regexp {^0} $value] } { # The [scan] command is a lot like the C sscanf() function, if you know that scan $value "%o" value}

     The only tricky thing about translating this:

     if ($DEBUG) { printf("Write PHY ${phy} register ${register} = 0x%0.8X\n", $value); };-

     is that Tcl has different variable scoping rules to Perl, so the DEBUG variable will be absent. In this case, the simplest technique is to use the fully-qualified name of the variable.

     if {$::DEBUG} { puts [format "Write PHY ${phy} register ${register} = 0x%0.8X" $value] ### However, I recommend this instead: # puts [format "Write PHY %s register %s = 0x%0.8X" $phy $register $value] ### As unexpected % symbols in phy or register won't make it choke. The equivalent ### advice would apply if you were sticking with Perl.}

     Finally, the backticks in Perl translate pretty directly to Tcl's exec, so this:

     `./write_phy.pl ${phy} ${register} ${value}`;-

     Becomes this:

     exec ./write_phy.pl $phy $register $value-

     You can usually omit the {braces} from around Tcl variable names; you only need them where it would lead to an otherwise-unwanted parse.

     Putting this all together, I get:

     set GPO_regs {0x70034 0x70038 0x7003C 0x70040 0x70044}-proc write_phy {phy register value} { if { [regexp {^0} $value] } { scan $value "%o" value } if {$::DEBUG} { puts [format "Write PHY %s register %s = 0x%0.8X" $phy $register $value] } exec ./write_phy.pl $phy $register $value}

     Note that the code in the other file has some nasty bugs lurking! I won't go into depth about it, but the key things you need to know are that expressions that are not used as if conditions should be wrapped in expr, like this:

     set registerValue [expr {1 << 31 | $phyAddr << 25 | $regAddr << 20 | 2 << 1}]-

     and the recommended way of splitting the arguments to a script into variables is like this:

     lassign $argv phyAddr regAddr-

     (Tcl's $ doesn't mean “this is a variable”, it means “read from this variable”. Variable names passed to things that manipulate the variable itself — e.g., set and lassign — should not normally have a $ in front.)

     Also, Perl's die is a lot like Tcl's error, and Tcl's exec automatically does a chomp-like operation on it's result.

     Check all answers on Stack Overflow

     2/5

   • perl code for counting number of words in text file

     Top Answer

     Answered Jul 15, 2014 · 0 votes

     #!/usr/bin/perl-sub linux_style_count { $filename = shift; $lines = `wc -l < $filename`; $words = `wc -w < $filename`; $chars = `wc -c < $filename`; print "\nFile $filename contains"; print "\nNumber of Lines = $lines"; print "Number of Words = $words"; print "Number of Chars = $chars\n";}sub perl_style_count { $filename = shift; open(FILE, "<$filename") or die "Could not open file: $!"; my ($lines, $words, $chars) = (0,0,0); while (<FILE>) { $lines++; $chars += length($_); $words += scalar(split(/\s+/, $_)); } print "\nFile $filename contains"; print "\nNumber of Lines = " . $lines; print "\nNumber of Words = " . $words; print "\nNumber of Chars = " . $chars . "\n";}@files = <*>;foreach $file (@files) { if (-f $file) { &linux_style_count($file); &perl_style_count($file); }}

     OUTPUT

     [root@localhost /]# perl count.pl-File mytext.txt containsNumber of Lines = 9Number of Words = 22Number of Chars = 214File mytext.txt containsNumber of Lines = 9Number of Words = 22Number of Chars = 214File hello.txt containsNumber of Lines = 41Number of Words = 127Number of Chars = 888File hello.txt containsNumber of Lines = 41Number of Words = 127Number of Chars = 888File config.ini containsNumber of Lines = 32Number of Words = 58Number of Chars = 538File config.ini containsNumber of Lines = 32Number of Words = 58Number of Chars = 538

     Check all answers on Stack Overflow

     3/5

   • Perl Programming - How to match value of one column with another column in a given file

     Top Answer

     Answered Jul 17, 2019 · 1 votes

     perl -F'\t' -lane'print $F[10], "\t", $F[7]-$F[6]' \ < Alu.txt > Alu_lengthsubfam.csv-

     Check all answers on Stack Overflow

     4/5

   • Perl Copy data from csv to excel workbook

     Top Answer

     Answered Dec 10, 2018 · 0 votes

     I fixed this by editiing my last 6 lines of code

     I made the selection on the source sheet

     my $range = "A1:CZ".$last_row;$res_sheet->range($range)->copy();-

     and removed the selection before pasting my data

     my $ResReport = $Book_In -> Worksheets("ModelReserveReport");$ResReport->paste();$csv_in->Close();-

     The copy/paste now works.

     Check all answers on Stack Overflow

     5/5

   Show moreShow less

2. stackoverflow.com › questions › 1490745Why is Perl the best choice for most string manipulation tasks?

   stackoverflow.com › questions › 1490745

   • Cached

   Feb 15, 2014 · 22. It is very subjective, so I wouldn't say that Perl is the best choice, but it is certainly a valid choice for string manipulation. Other alternatives are Tcl, Python, AWK, etc. I like Perl's capabilities because it has excellent support (better than POSIX as pointed out in the comment) for fast regexs and the implicit variables makes it ...

   • Perl -> Practical Extraction and Reporting Language. Perl's strength(when it comes to string processing) lies in it's very powerful Regular expres...
   • To address the second part of your question: Perl's reputation for line noise comes from 4 kinds of people: Overly clever (for their own good) hac...
   • Because It is what is perl made for. Because Perl is expressive, powerful and fast. I have beaten many times specialized products with small and di...
   • It's a very subjective question. Perhaps the true answer is that Perl has a nice syntax (incl. the regex syntax) that makes people want to sign it...
   • Kids these days! Back in the day, all we had was SNOBOL -- and we liked it! Try it sometime...you never know, you might want something respectable...
   • Perl is widely used for string manipulation tasks as its string manipulation API is easy to learn. And also its regex is widely used. It has been i...
   • I like Perl a lot, write books about it, publish a magazine about it, and so on. I don't think I would ever say it's the best language to do anythi...
   • At the beginning, Perl was developed for easy report processing and dealing with text files, thus it's got a very strong REGEX support. Most of the...
   • Perl was the go-to language for a long time. The problem is it can be pretty messy and difficult to maintain (some people can write Perl that avoid...

3. commandhunt.com › perl-copy-commandCopy Command in Perl – Command Hunt

   commandhunt.com › perl-copy-command

   • Cached

   Mar 13, 2024 · By Elaine Kelly March 13, 2024. Looking to learn about the Copy Command in Perl? In this article, we will explore what Perl is, how the Copy Command works, and the different ways you can use it. From understanding the syntax to learning how to use the Copy Command step by step, we will cover it all.

4. People also ask

   What is text processing in Perl?

   • Text-Processing: As the acronym “Practical Extraction and Reporting Language” suggest that Perl has high text manipulation abilities by which it can generate reports from different text files easily.

   Perl Tutorial - Learn Perl With Examples - GeeksforGeeks

   www.geeksforgeeks.org/perl-tutorial-learn-perl-with-examples/

   See all results for this question

   Is Perl a good programming language?

   • For decades, the Perl programming language has remained important in the realms of text processing, system administration, and even web development. We just published a full course on the freeCodeCamp.org YouTube channel that will teach you how to use Perl.

   Free Perl Programming Course for Beginners - freeCodeCamp.org

   www.freecodecamp.org/news/free-perl-programming-course-for-beginners/

   See all results for this question

   Where can I learn text processing in Perl?

   • If you want to more ways to practice working with text in Perl, or if you just need a few more examples, a good resource is the Perl CLI Text Processing repository on Github. The Perl community has been building text manipulation modules for decades to work with XML, JSON, HTML, text and many more.

   Text Manipulation with Perl (Pre-built Runtime) - ActiveState

   www.activestate.com/blog/text-manipulation-with-perl/

   See all results for this question

   How to write a Perl code?

   • Perl programs can be written on any plain text editor like notepad, notepad++, or anything of that sort. One can also use an online IDE for writing Perl codes or can even install one on their system to make it more feasible to write these codes because IDEs provide a lot of features like intuitive code editor, debugger, compiler, etc.

   Perl Tutorial - Learn Perl With Examples - GeeksforGeeks

   www.geeksforgeeks.org/perl-tutorial-learn-perl-with-examples/

   See all results for this question

5. www.geeksforgeeks.org › perl-tutorial-learn-perlPerl Tutorial - Learn Perl With Examples - GeeksforGeeks

   www.geeksforgeeks.org › perl-tutorial-learn-perl

   • Cached

   • Key Features
   • Getting Started with Perl
   • Modules and Packages

   Perlhas many reasons for being popular and in demand. Few of the reasons are mentioned below: 1. Easy to start: Perl is a high-level language so it is closer to other popular programming languages like C, C++and thus, becomes easy to learn for anyone. 2. Text-Processing:As the acronym “Practical Extraction and Reporting Language” suggest that Perl ...

   See full list on geeksforgeeks.org

   Since Perl is a lot similar to other widely used languages syntactically, it is easier to code and learn in Perl. Perl programs can be written on any plain text editor like notepad, notepad++, or anything of that sort. One can also use an online IDE for writing Perl codes or can even install one on their system to make it more feasible to write the...

   See full list on geeksforgeeks.org

   A module in Perl is a collection of related subroutines and variables that perform a set of programming tasks. Perl Modules are reusable. Perl module is a package defined in a file having the same name as that of the package and having extension .pm. A Perl package is a collection of code which resides in its own namespace. To import a module, we u...

   See full list on geeksforgeeks.org

6. www.freecodecamp.org › news › free-perl-programmingFree Perl Programming Course for Beginners - freeCodeCamp.org

   www.freecodecamp.org › news › free-perl-programming

   • Cached

   Aug 23, 2023 · For decades, the Perl programming language has remained important in the realms of text processing, system administration, and even web development. We just published a full course on the freeCodeCamp.org YouTube channel that will teach you how to use Perl. The course covers topics ranging from basic syntax to advanced

7. Videos

   • 

     3:41

     youtube.com

     Perl Programming Create Text File

     Feb 24, 2018

     2.7K Views

   • 

     4:10:33

     youtube.com

     Perl Programming Course for Beginners

     Aug 23, 2023

     62K Views

   • 

     2:40:50

     youtube.com

     PERL Tutorial - 1 | PERL Tutorial for Beginners - 1 | Perl Scripting Language Tutorial | Edureka

     Feb 21, 2015

     240.4K Views

   View all

8. opensource.com › article › 22Tame your text with Perl | Opensource.com

   opensource.com › article › 22

   • Cached

   Feb 11, 2022 · open my $fh, '<:encoding(UTF-8)', "$names.txt" or die "Could not read file " ; while (<$fh>){ print if /Elizabeth/; } A quick note regarding this code: the regular expression needs to come at the end of the line. So if /Elizabeth/ print; will not work. This error is common for new Perl programmers. Programming and development.

9. www.activestate.com › blog › text-manipulation-with-perlText Manipulation with Perl (Pre-built Runtime) - ActiveState

   www.activestate.com › blog › text-manipulation-with-perl

   • Cached

   Jul 11, 2019 · July 11, 2019. Dana Crane. Perl has often been called the swiss army knife of scripting languages, but one of the most common use cases is string manipulation. After all, it’s right there in the ‘backronym”: “Practical Extraction and Reporting Language.”

10. en.wikibooks.org › wiki › Perl_ProgrammingPerl Programming - Wikibooks, open books for an open world

    en.wikibooks.org › wiki › Perl_Programming

    • Cached

    Dec 26, 2022 · These books describe and explain Perl, a high-level, general-purpose, interpreted, dynamic programming language. Perl is noted for its idiomatically rich syntax, its extensive use of regular expressions and the large module archive CPAN.