Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
use strict;
use warnings;
use Text::Aspell;
sub main() {
my $str = "Уважаемые пассажиры, во избежание травм держитесь за поручни";
my $speller = Text::Aspell->new;
die unless $speller;
$speller->set_option('lang', 'ru_RU');
#!/usr/bin/perl
use strict;
use warnings;
my $str = "44+4 = 444/4-44/4+4/4";
sub main(){
for my $i (0,1,7,8,9,13) {
my $copy = $str;
#include "config-host.h"
#include <sys/mman.h>
#include "hw/hw.h"
#include "hw/qdev.h"
#include "hw/isa/isa.h"
typedef struct FFTestdev {
ISADevice parent_obj;
MemoryRegion ioport;
uint32_t ioport_data;
#define _GNU_SOURCE
#include <sched.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/wait.h>
#include <sys/sem.h>
#include <sys/ipc.h>
#include <errno.h>
/*
============================================================================
Name : engineer_edem.c
Author :
Version :
Copyright : Yuriy Nazarov
Compile : gcc -std=c11 -O3 -fopenmp enginer_edem.c
============================================================================
*/
$ perl -MO=Concise -e 'print 1+2'
6 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
5 <@> print vK ->6
3 <0> pushmark s ->4
4 <$> const[IV 3] s ->5
-e syntax OK
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use JSON::XS;
use LWP;
use LWP::UserAgent;
use constant {
#!perl
use strict;
use warnings;
use Template;
my $vars = {
GENOME_BUILD_NAME => 'GENOME_BUILD_NAME_val',
CHROMOSOME => 'CHROMOSOME_val',
SAMPLE_HASH => {
import java.lang.*;
public class NameOfDemo {
public MyString getName() {
if(fake){
return (new MyString(this.name){});
}else{
return this.name;
}
}
import java.lang.*;
public class NameOfDemo {
public MyString getName() {
return (new MyString(this.name){});
}
public void setName(MyString name) {
this.name = name;
}
public MyString name;