I’d split the problem to several steps: Find the value index. If given an index you can skip this step. Compute the subtraction with the value or values below it. Compute the subtraction with the value or values above it. Note that you should only base your run on indices, not values. solved compare and … Read more
#!/usr/bin/perl use strict; use warnings; use 5.010; my $count = 0; while (<DATA>) { chomp; for (split / abc /) { $count++; say “value $count=”, ($count == 1 ? ” : ‘ ‘), $_; } } __DATA__ 123 abc xyz 456 abc sdf 789 abc ghj Or, perhaps a more data-driven approach to determining which … Read more
STRAIGHT OUTTA DOCS: The simplest regexp is simply a word, or more generally, a string of characters. A regexp consisting of a word matches any string that contains that word: “Hello World” =~ /World/; # matches What is this Perl statement all about? “Hello World” is a simple double-quoted string. World is the regular expression … Read more
You’re talking about regular expressions and how to use them in Perl. Your question seems to be whether the answers you picked to homework are correct. The code you’ve added should do what you want, but it has syntax errors. if ( ^x*$ ) { print “This is”; } Your pattern is correct, but you … Read more
Use captures ((…)). if ( my ($capture) = $x =~ /(NY)/ ) { say $capture; } By the way, always use use strict; use warnings qw( all );. The above program also needs use feature qw( say );. solved How set found text in variable in Perl
I found this code and I think it’s encoded. I tried to understand how it’s encoded or how can read it. Does anyone have an idea to decode this code? solved I found this code and I think it’s encoded. I tried to understand how it’s encoded or how can read it. Does anyone have … Read more
It’s not very good form to bring just a requirement to Stack Overflow without obviously having tried to solve the problem yourself. Without any code there is nothing to “help” with, and I hope you’ll at least make an effort in the future Assuming there is always some whitespace before each date, this will work … Read more
For the record, for x = “TGAGGTAGTAGTTTGTGCTGTTAT TAGTAGTTTGTGCTGTTA TGAGGTAGTAGTTTGTAC TGAGAACTGAATTCCATAGG” a Biostrings solution is library(Biostrings) consensusMatrix(DNAStringSet(strsplit(x, “\n”)[[1]])) which will be fast for millions of sequences. solved frequency of letters at position in string [closed]
Start with the wikipedia pages for each language. Then grab some reference books on each (the Camel book for Perl, obviously). Areas to consider might include: Approach to types Namespacing / variable scoping Module/Class/Package inclusion mechanisms argument passing semantics return value contexts (search for scalar/list context wrt perl) Multi-processing/multi-threading support/approaches Unicode support Standard libraries Range … Read more
The reason why it has put comma’s in is due to the file type you have used. CSV stands for “comma seperated values” WIKI You will need to change to format of the file if you do not want the comma’s in the output. solved CSV file is not in the proper format after uploading … Read more
Now as you can see in the comment in your question that you really need to be specific about where you are actually stuck in to ask a question in SO. However, after looking at your other questions in SO it looks like you are completely new in programming world and need serious helping hand. … Read more
I think I managed to generate this correctly (on iPad, sat on the sofa) … There could be some typos ; ) Usage: perl test_x397.pl <path> test_x397.pl #!/usr/bin/perl -w use strict; use warnings; use Encode; my ($path) = @ARGV; $path // die “No path specified”; (-e $path) or die “Path not found: $path”; (-d $path) … Read more
Sorry I was not realising that I aksed a bit too much. I actually figured it out on my own. So i guess I leave the code here in case anyone needs it. Have a nice day! #!/usr/bin/perl # PERL MODULES use strict; use DBI; use DBD::ODBC; use Text::CSV; use List::MoreUtils qw(each_array); # SOME VARIABLES … Read more
It appears as though you want to simply eliminate duplicate users. Here’s one way. The only difference is that the output is not sorted in the same order it came in from the file. It uses an external module, Getopt::Long to handle the arguments, then uses a hash to eliminate duplicates: Code: #!/usr/bin/perl use strict; … Read more
You should visit http://perlmaven.com/ (available in many languages) or http://learn.perl.org/ to learn some Perl first. Your shell script doesn’t need to copy the commandline values. You also used #!usr/bin/bash which won’t work because the path is either /usr/bin/bash or (more common) /bin/bash: #!/bin/bash createviewset ccm -b $1 -t $2 source setenv $2 rest of the … Read more